my $ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3);
$ftp or die "$server: cannot connect: $@";
$ftp->login ($user,$passwd) or die "$_: Could not login: " . $ftp->message;
# Put file (Parameter kann Filename oder Handle sein)
open FILE, '<', $file or die "open $file $!";
binmode FILE, 'encoding(cp850)' or die $!;
$ftp->put (\*FILE) or die "$server: cannot put $file: " . $ftp->message;
close FILE;
$ftp->quit;