Perl prototype