use Net::FTP;
while (<>) {
  $ftp = Net::FTP->new("HOST", Debug => 0);
  $ftp->login("login",'passwd');
  $ftp->put(*STDIN, $@); # here's the problem...
  }
$ftp->quit;