#!/usr/bin/perl -w
use strict;
use Net::FTP;
my $ftp = Net::FTP->new('ftp')
    or die("unable to connect: $@\n");
$ftp->login or die("Unable to login to ny4");
print "Message = ", $ftp->message(), "\n";
$ftp->put( 'foo' )
    or die("Unable to write ftp.prep");
print "Message = ", $ftp->message(), "\n";
$ftp->quit;