use strict;
use Net::FTP; 

my $server = ARGV[0];
my $user = ARGV[1];
my $pass = ARGV[2];

# connect
my $ftp = Net::FTP -> new($server);
print $ftp -> message(), "\n";

# login
$ftp -> login("$user","$pass");
print $ftp -> message(), "\n";

# set binary mode
$ftp -> binary();
print $ftp -> message(), "\n";

# move through directories
# $dir = "ftp";
# $ftp -> cwd($dir);
# print $ftp -> message(), "\n";

# list files
my @list = $ftp -> ls();
print $ftp -> message(), "\n";

# put files on the server
$ftp -> put(local file, remote file);
print $ftp -> message(), "\n";

$ftp -> quit();
exit(0);