Select Code to Download

/test1/in/foo.edi
/test1/in/dir/bar.edi

/composite/test1_YYYYMMDDHHSS_foo.edi
/composite/test1_YYYYMMDDHHSS_bar.edi

#!/usr/bin/perl -s
use strict;
...
 print "hello";
 print $_;
}

$ ./dirwalkftp.pl
this is ftpfind Net::FTP::Find=GLOB(0x10083ce10)
$