Perl samples