#!/usr/bin/perl
use strict;
use warnings;
use IPC::Open2;


my $FTP_HOST = 'glarch';
my $FTP_USER = 'JRUser';
my $FTP_PASS = 'quux';
my $FTP_DIR = '~/src';
my $FTP_FILE = 'foobar';

my $pid = open2(\*READ, \*WRITE, "ftp -n -i -v " );
        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> ;