Re: How to FTP from STDOUT?

[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 $!;