Project 1 Perl

Project 1 in Perl.