Help for this page
#!/usr/bin/perl -w # untitled1.pl ... foreach $line (@file) { system($line) && die "Can't execute $line: $!"; }