Select Code to Download

### i know this does not work, i am showing the idea
my $ftp = Net::FTP->new($server,$user,$pass);
...
$ftp->put(\*R,'filename');
print W "data here\n";
$ftp->quit;

pipe(READ,WRITE);
$pid = fork();
...
    print WRITE $data;
    close(WRITE);
}