Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use CGI::Carp qw(fatalsToBrowser);
- use strict;
- use warnings;
- use WWW::Mechanize;
- my $mech = WWW::Mechanize->new( autocheck => 1 );
- my $url = "http://www.perlmonks.org/?" ;
- print "Downloading URL=$urln";
- $mech->get($url);
- die "Can't even get the home page: ", $mech->response->status_line unless $mech->success;
- print $mech->content();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement