my $ftps = Net::FTPSSL->new('mysite.org',
                          Port => 21,
                          Encryption => 'E',
                          Debug => 0, Timeout => 3600)
or die "Can't open FTP";

$ftps->login("xxxxx",'xxxx') or die "Cannot login ", $ftps->message;
$ftps->binary();
$ftps->cwd("/public_html/cgi-bin/links/admin/IMPORT") or die "Cannot change working directory ", $ftps->message;

print "Currently in: " . $ftps->pwd(). "\n";
$ftps->put("/home/user/public_html/cgi-bin/hotels/admin/com.csv") or die "Cannot upload ", $ftps->message;