use Net::FTP;

print "Starting FTP...\n";

$userid = $ARGV[0];
$passwd = $ARGV[1];
$rmtfile = $ARGV[2];
$locfile = $ARGV[3];

$ftp = Net::FTP->new("ftp.mvs.yoursite.com", Debug => 1);

print "downloading $rmtfile to $locfile\n";
print "$ftp\n";
print "logging in...\n";
$ftp->login($userid, $passwd);
print "transferring file...\n";
$ftp->get($rmtfile, $locfile);
print "logging off...\n";
$ftp->quit;
print "done.\n";