Perl fixes