Adding Perl basic samples