$ftp->login("perl",'monk'); $ftp->put("fh.txt", ); print FH qq(a,b,c,d); $ftp->quit;