> $ftp_server    = "***.***.***.***";
> $login         = "roime";
> $password      = "roimepuniran";
> $upload_to_dir = "/flow/flowBig";
> $input_file = "/flow/netflow";
> $new_file_name = "lyidia.pl";
>
> =================================================================
>
> my $ftp;
>                       print "Connect From : ", $addr->peerhost();
>               #Display Message
>
>               $ftp = Net::FTP->new($ftp_server, Debug => 1) or warn 
+"Cannot
connect to the ftp host";
>
>                            $ftp->login($login,$password)or die
$ftp->message;
>                            $ftp->pwd or die $ftp->message;
>                            $ftp->cwd($upload_to_dir) or die $ftp->me
+ssage;
>                            $ftp->binary();
>
>                            $ftp->put($input_file, $new_file_name) or
warn "...Not upload..";
[download]

If you want to do it the easy way, then you could useNet::FTP::Recursive.

However, if you want to improve your perl skills, then I'd suggest breaking down the process into steps:

* Create the target folder on the FTP server
* Find the filenames for the current directory that need to be transferred. I'm assuming that you're using Windows so `dir /b` would be one way of getting a list of filenames.
* Transfer each of those files to the target server.

If your folder contains sub-folders then you'll need to use recursion.