Advertisement
Guest User

Untitled

a guest
Mar 23rd, 2017
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.33 KB | None | 0 0
  1. use CGI::Carp qw(fatalsToBrowser);
  2. use strict;
  3. use warnings;
  4. use WWW::Mechanize;
  5.  
  6. my $mech = WWW::Mechanize->new( autocheck => 1 );
  7. my $url = "http://www.perlmonks.org/?" ;
  8. print "Downloading URL=$urln";
  9. $mech->get($url);
  10. die "Can't even get the home page: ", $mech->response->status_line unless $mech->success;
  11. print $mech->content();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement