#!/usr/bin/perl -w 
# test.pl 

use warnings; 
use Net::FTP; 

$ftp = Net::FTP->new("svr123", Debug => 1); 
print STDOUT ( defined $ftp ? "yep" : '$ftp' ), "\n"; 
$ftp->login("oracle",'xxx');
$ftp->cwd("/u01"); 
$ftp->put("test.dat");
$ftp->quit;