http://www.perlmonks.org?node_id=329459


in reply to executing script one at the time

Try the following code to see if you get any errors:

use strict; use warnings; while (my $line = <FILES_TO_RUN>) { chomp $line; die ("File does not exist") unless (-e $line); die ("File cannot be executed") unless (-x $line); system(qq($line)); }

And remember to always have use strict; use warnings; at the top of your scripts.


Want to support the EFF and FSF by buying cool stuff? Click here.