Pre-perl5.8: check out IO::String.

Perl5.8+: you can still use IO::String, but you can also do this:

open my $fh, '<', \$myfile;
$ftp->put($fh, 'filename.txt');
[download]