use Net::FTP;

my ($ftp, $host, $user, $pass, $dir, $fpath);

$host = 'ftp.my.com';
$user = 'last.first@somewhere.com';
$pass = 'mypass';
$dir = '/my/file_path/onftp';

$fpath = 'myfileonserver_xml.zip';

$ftp = Net::FTP->new($host, Debug => 0);
$ftp->login($user, $pass) || die $ftp->message;  ##this is line x##
$ftp->cwd($dir);
$ftp->put($fpath) || die $ftp->message;
$ftp->quit;