### Upload der Datei
my $ftp=undef;

       if($DEBUG)
       {
       $ftp=Net::FTP->new($FTP_host,Timeout=>60, Debug => 1) or die "Cannot connect to some.host.name: $@";
       }else{
       $ftp=Net::FTP->new($FTP_host,Timeout=>60) or die "Cannot connect to some.host.name: $@";
       }

$ftp->login($FTP_user,$FTP_password) or die "Cannot login ", $ftp->message; 
$ftp->cwd($FTP_remotedir) or die "Cannot cwd ", $ftp->message; 
### binary wegen Bild
$ftp->binary() or die "Cannot change binary", $ftp->message;
$ftp->put($FILETOUPLOAD) or die "Cannot upload File", $ftp->message; 
$ftp->quit;