How to FTP from STDOUT?

[mccormi]

I'm looking to be able to ftp from a cgi using Net::FTP without actually writing a local file. Something like put($scalar, "remotelogfile"). I know you can do something similar using *STDIN, put have yet to get *STDOUT to work. Is there a way to write a CGI generated remote file without writing a local file?

Originally posted as a Categorized Question.

[I0]

use Net::FTP;
$ftp = Net::FTP->new($host) or die $!;
$ftp->login($user,$password) or die $!;
$sock = $ftp->_data_cmd('stor', "remotelogfile") or die $!;
while( <DATA> ){
  $sock->write($_,length) or die $!;
}
$sock->close() or die $!;

[vaevictus]

I've worked on this, but was unable to solve it. Check out my question for the relevant info