Select Code to Download

$ftpobj = Net::FTP -> new ("server.com",Debug =>1,Timeout=>60);
$ftpobj -> login("user","pass");
...
$ftpobj -> put ("/Users/a/code/perl/testfile.txt","/Users/a/code/perl/
+ftptest/testfile.txt");
$ftpobj -> quit;
print "file size ",-s "testfile.txt"," bytes\n";

Net::FTP>>> Net::FTP(2.75)
Net::FTP>>>   Exporter(5.567)
...
Net::FTP=GLOB(0x889f84): Timeout at ftp.pl line 10
Net::FTP=GLOB(0x889f84)>>> QUIT
Net::FTP=GLOB(0x889f84)<<< 425 Can't build data connection: Operation 
+timed out. file size 23 bytes