A Perl scripts