pipe(READ,WRITE);
$pid = fork();
if ($pid == 0) {
    ## child (read)
    close(WRITE);
    $ftp->cwd("/some/dir");
    $ftp->put(\*READ,'filename');
    $ftp->quit;
} else {
    ## parent (write)
    close(READ);
    ## ... do some cool processing for $data
    print WRITE $data;
    close(WRITE);
}