Anyone out there have problems with NET::ftp and zip files. The file keeps comming down corrupted - when I get the file using standard win2000 ftp cleint the file is ok. so the file is not the problem.
Any help would be appreciated.
#!/usr/bin/perl
# file name here
use warnings;
use strict;
use Net::FTP;
use File::Copy "cp";
# ******************************************************
# SECTION 1 CHECK TO SEE IF THERE IS A NEW FILE ON JANUS
# ******************************************************
# log into xxxxx with perl
chdir "d:/cds_data/latest_download/";
my $ftp = Net::FTP->new("xxxxxxxxxx")
or die "Couldn't connect: $@\n";
$ftp->login("xxxxxx", 'xxxxxxxx');
$ftp->cwd("/pushus/download");
$ftp->binary;
$ftp->pasv;
$ftp->get("download.zip");
$ftp->close;
print "Th Th Tha That's All Folks!!!!!", "\n";