On Sun, Dec 14, 2014 at 6:30 PM, Juan José 'Peco' San Martín <
[email protected]> wrote:
>
> Simple script to do wget:
>
>
> *use strict;use warnings;*
>
>
> *use LWP::UserAgent;*
>
> *my $browser = LWP::UserAgent->new();*
>
>
> *my $echo=$browser->get('http://google.com <http://google.com>');*
>
> *if (not $echo->is_success) { print "no connection\n";}*
> *else { print "connected\";}*
>
What is the actual error message when it fails, e.g. try
*if (not $echo->is_success) { print "no connection: ", $echo->status_line,
"\n";}*
Cheers, Roderich
