Perl scripts updated