You got to give us more information on the error (can you post the error?). if you are talking about your die erroring out then you you need to check if your program (test_script.pl) worked or not before you debug the one you posted. The code you had and the one i posted work just fine for me (with the modification).

Also couple of things -

1. Can you run your test script on the command line with an argument does it work? can you do that with a * (shell wild-card) does it work?

2. Do something like  my $ret = `perl test_script.pl $f`; and then print out $ret for each file.

Make sure you have  use warnings

Hope this helps.

-SK

Update: Thanks sgifford! It is a good point and I think that could be the reason why the script is failing.

sbp, Actually tho, i am wondering why would you even need this wrapper script? Can't you just do test_script.pl * on the directory you want?