Perl sample scripts