if ($var eq "Y") {
        open(FTP,'| ftp -i -v -n ')
        or die "Couldn't run FTP: $!\n";
        my $ofh = select(FTP); $|=1; select($ofh);
        print FTP "open $FTP_HOST\n";
        print FTP "quote USER $FTP_USER\n";
        print FTP "quote PASS $FTP_PASS\n";
        print FTP "cd $FTP_DIR\n";
        print FTP "bin\n";
        print FTP "get $FTP_FILE\n";
        print FTP "bye\n";