Perl updates