### i know this does not work, i am showing the idea
my $ftp = Net::FTP->new($server,$user,$pass);
$ftp->cwd("/some/dir");
pipe(R,W);
$ftp->put(\*R,'filename');
print W "data here\n";
$ftp->quit;