perl-scripts testing