#!D:/Programme/Perl

use strict;
use warnings;
use Net::FTP::Recursive;

print "Pfad (z.B. C:\\temp) : ";
my $path = <STDIN>;
chomp($path);

my $ftp = Net::FTP::Recursive->new("server", Debug => 0) or die "Konnte keine Verbindung aufbauen $!";
$ftp->login("user", "password") or die "Login failed: $!";

if(opendir(my $handle, $path)) {
  while(my $file = readdir $handle) 
  {
     next if $file =~ m#^\.\.?$#;
     my $cmd;
     $ftp->rput(\$path,$cmd,1,1);
  }
  closedir $handle;
}
$ftp->quit;