Use Net::FTP;
$myfile = "Two lines\n of text";
$ftp = Net::FTP->new("ftp.myhost.com", Debug => 0);
$ftp->login('user','pass');
$ftp->cwd("/example");
$ftp->put(MYFILEHANDLE,filename.txt);
$ftp->quit;