$ftpobj = Net::FTP -> new ("server.com",Debug =>1,Timeout=>60);
$ftpobj -> login("user","pass");
$ftpobj -> binary;
$ftpobj -> cwd ("/Users/a/code/perl/ftptest");
$ftpobj -> delete ("/Users/a/code/perl/ftptest/testfile.txt");
$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";