Simple Perl Programs to learn