ftype Perl