$ cat upload4.pl
#!/usr/bin/perl -w
use strict;
use Net::FTP;

my $domain = 'www.altgreendsigns.com';
my $username = '';
my $password = '';
my $file1 = 'page5.html';
my $ftp = Net::FTP->new($domain, Debug=>1, Passive=>1)    or die "Can't connect: $@\n";
$ftp->login($username, $password)       or die "Couldn't login\n";
$ftp->put($file1) or die "put failed $@\n";
my @list = $ftp->dir();
print join( ',', @list),"\n";
$