Moving Files, subfolders

[Evyn]

Hi all,

I have the following perl script that copies files from one folder to
another:

use File::Copy;
my $filename = 'gar';
for my $file ( <*.$filename> ) {
    # copy each individual file
    move($file, "c:\\Documents\\AudioDownloadsWaiting\\") or die "move
failed: $!";
    }
print "Done";

This works well, but now I need to look for .gar files in all the
subfolders of the current folder too. How do I do this?

Thanks for your time!

Evan


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/