Perl sample projects