sub ftpme { my $remotehost="ftp.foo.com"; my $remotedir="archive"; my $user="xxxxx"; my $pass="xxxxxx"; my $data=$scratchtps; my $ftplog="/usr/local/log/ftp_IrMt_scratchtapes.log"; my $ftp = Net::FTP->new($remotehost, Debug => 10) || die "Cannot connect to $remotehost: IronMt: $!, print ($ftplog)"; $ftp->login($user, $pass) or die "Login failed!: $!, print ($ftplog)"; $ftp->ascii(); $ftp->cwd($remotedir); $ftp->put($data) or die "FTP put to IrMt failed!: $!, print ($ftplog)"; $ftp->quit; }