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