my $ftp = Net::FTP->new("57.56.120.133", Debug => 0)
      or die "Cannot connect to 57.56.120.140: $@";

$ftp->login("pixx_ftp",'-pixxftp')
      or die "Cannot login ", $ftp->message;

$ftp->hash(\*STDERR)
      or die "no hash ", $ftp->message;

print "\nTransfer File to FTP Server\n";

$ftp->put("$log_dest\\$zip_name")
      or die "put failed ", $ftp->message;

$ftp->quit;