Sample Perl Scripts