When you use readdir, it only gives you the file name. To open it, you must prepend the directory:

my $full_name = "$path\$search";
[download]

Using File::Spec makes this portable across operating systems.

To call one script from another use either backquotes `` or system. Most people prefer system. See perldoc -f system perlfunc.

Phil

Edit: g0n - reparented from reaped duplicate of OP