Perl helper