my $pid = open2(\*READ, \*WRITE, "ftp -i -v -n" );
        print WRITE "open $FTP_HOST\n";
        print WRITE "quote USER $FTP_USER\n";
        print WRITE "quote PASS $FTP_PASS\n";
        print WRITE "cd $FTP_DIR\n";
        print WRITE "FTP "bin\n";
        print WRITE "get $FTP_FILE\n";
        print WRITE "bye\n";
        my @data = <READ> ;