$ftp->put( <SESAME> ,"ftptest");
print SESAME "This is a test.\n";