Perl scripts for practice