open(SEASAME,"file_to_send" or die $!;
$ftp->put( <SESAME> ,"ftptest");
close SEASAME;

#or more simply 
$ftp->put( "file_to_send", "name_to_put_as");