Cheers!

New to LWP and downloading file/copying file from Web to local box.  Had a go 
at it and failed horribly...  On Solaris 10 with Perl 5.10.
#!/usr/bin/perl -w
use strict;
use LWP::Simple qw($ua get);
my $webpage ="https://www.mywebpage.com/Documents.zip";;
$ua->timeout(20);
my $content = get $webpage or die "Page timed out...$!\n"; 
if (defined $content) {
  open FILE,"> Documents.zip" or die "Can't create file";
  binmode FILE; 
  print FILE $content; 
  close FILE;
} else {
  print "LWP get() failed\n";
}
exit;

Don't see where I authenticate -- login and password, that is.  Get system 
timed out as an error.  Any help would be grateful.


      

Reply via email to