for my $script glob('*.pl') { system ("perl $script>$script.log 2>&1"); }