Some Perl Stuff from my learing of the Perl Language