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
$ftp->ascii;
$ftp->put ($file) or
die "$server: cannot put $file: " . $ftp->message;
$ftp->quit;