20140108: Added Perl scripts for Lab1