open(FTP,'| ftp -n ')
  or die "Couldn't run FTP: $!\n";
my $ofh = select(FTP); $|=1; select($ofh);
print FTP "open $IP\n";
print FTP "quote USER $user\n";
print FTP "quote PASS $pass\n";
print FTP "lcd\n";
# and so forth