Perl project