Perl scripts for learning