20140215: Added perl code for Lab5