sorry its calling resurcive uploading....
i have already this

#!/usr/bin/perl>
use Net::FTP;
$ftp = Net::FTP->new("10.10.10.3", Debug => 0);
if ($ftp == undef) { die ("Couldn't open ftp connection, $@\n"); }
$ftp->login('test','test');
$ftp->binary;
for(<*.*>) { $ftp->put($_); }
$ftp->quit;
[download]

That is uploading everything in my current directory !
just the files ... but if there is also directory's in that
directory. it is doing nothing. and i want do some logging also any idea ....

2001-10-13 Edit by Corion : Added CODE tags