Hello All,
The following code snippet is of a program I've written to download a dictionary file from a server. The file to be downloaded is a zip.. Kindly see the code below, (error checkings etc are purposely removed from the script, to keep the message small). The program runs without any errors, and i can a file downloaded in specified location. The file is also of the right size (compared with the manually downloaded file). But cannot open this file using Winzip When i download it as .zip, as in the snippet above, opening thr' winzip gives this error: "filename: start of central directory not found; Zip file corrupt. Possible cause:file transfer error." When i download it the file as .tar, winzip gives this error: "Error reading header after processing 0 entries." The server from where i am getting this file is a Free BSD machine, my program is on Windows(Active Perl 5.8.7) ============================================================================ ==================== #!/usr/bin/perl -w use strict; use WWW::Mechanize; my $login = "administrator"; my $password = "admin"; my $url = "http://abc.xyz.com"; my $mech = WWW::Mechanize->new(); $mech->get($url); #Log in $mech->submit_form( form_number => 1, fields => { user => $login, password => $password }, ); #Navigate to the download page $mech->follow ( 'Download' ); if ($mech->success) { #this page has only one form with the "download" button. Download is for a zip file. $mech->click(); if ($mech->success) { my $filename = 'E:\Dhanashri\Perl-study\downbrand.zip'; $mech->save_content ( $filename ); print "\nFile Downloaded!\n\n"; } else { print "\nDownload Failed!\n"; } } $mech->follow ( 'logout' ); ============================================================================ ==================== Thanks, Dhanashri