##
## USE Net::FTP when security defines that FTP PORT 21 must be closed.
## You can use this program to FTP to Linux, Unix, Windows ... anything.
##
#!/usr/bin/perl -w
use strict;
use Net::FTP;

my $ftp;
my $host="sutechy.com";
my $user="myftp\@sutechy.com";
my $passwd='letmein';
my $file="animated-penguin-image-0064.gif";

$ftp = Net::FTP->new("$host", Debug => 0) or die "CANNOT CONNECT TO $host:$@\n";

$ftp->login("$user","$passwd") or die "CANNOT LOGIN: $@\n", $ftp->message;

$ftp->put("$file") or die "get failed ", $ftp->message;

$ftp->quit;