$ftp = Net::FTP->new($destserv) || die "error connecting\n";
$ftp->login($destuser,$destpass);
$ftp->binary();
$ftp->put(*STDIN,$remotefile) or die "error uploading\n";
$ftp->quit();

##</code><code>##

my $data="FOOBAR";

tie *FOO, 'IO::Scalar',\$data;

$ftp = Net::FTP->new($destserv) || die "error connecting\n";
$ftp->login($destuser,$destpass);
$ftp->binary();
$ftp->put(*FOO,"remotelogfile") or die "error uploading\n";
$ftp->quit();

##</code><code>##

while (<FOO>){print $_;}
print FOO "hi";