I did this, i don't know if this is the more clearly way to that.
#! /usr/bin/perl -w
use Net::FTP;
open(TMPOUT, ">>","/tmp/tmpout.txt");
*STDOUT = *TMPOUT; ### Redirect STDOUT to /tmp/tmpout.txt
#select TMPOUT;
my ($ftp, $host, $user, $pass, $dir, $fpath);
$host = "localhost";
$user = "myftpuser";
$pass = "myftppassword";
$dir = "/tmp";
$ftp = Net::FTP->new($host, Debug => 0);
$ftp->login($user, $pass) || die $ftp->message;
$ftp->cwd($dir);
while(<STDIN>) { print $_ . "\n"; } ####Printing the STDING to /tmp/tmpout.txt
$ftp->append("/tmp/tmpout.txt", "myremoteout.txt"); ### Now i append the oupout of the local file /tmp/tmpout.txt to the remote ftp file /tmp/myremoteout.txt
$ftp->quit;
Now chmod +x f.pl
and find / -type f | ./f.pl
output of grep "^/" /tmp/myremoteout.txt
on the ftp server:
/usr/share/doc/gcc-4.7-base/README.Bugs
/usr/share/doc/gcc-4.7-base/NEWS.html
/usr/share/doc/gcc-4.7-base/changelog.Debian.gz
/usr/share/doc/gcc-4.7-base/changelog.gz
/usr/share/doc/gcc-4.7-base/quadmath/changelog.gz
/usr/share/doc/gcc-4.7-base/test-summary.gz
/usr/share/doc/gcc-4.7-base/gomp/changelog.gz
/usr/share/doc/gcc-4.7-base/TODO.Debian
/usr/share/doc/gcc-4.7-base/gcc/changelog.gz
/usr/share/doc/gcc-4.7-base/README.ssp
/usr/share/doc/gcc-4.7-base/README.Debian.amd64.gz
/usr/share/doc/gcc-4.7-base/test-summaries/obj-c++.sum.gz
/usr/share/doc/gcc-4.7-base/test-summaries/libmudflap.sum.gz
/usr/share/doc/gcc-4.7-base/test-summaries/libgomp.sum.gz
/usr/share/doc/gcc-4.7-base/test-summaries/libstdc++.sum.gz
/usr/share/doc/gcc-4.7-base/test-summaries/libgo.sum.gz
/usr/share/doc/gcc-4.7-base/test-summaries/go.sum.gz