Setting a User Agent and Retrieving a Web Page : HTTP « Network « Perl






  1. Perl
  2. Network
  3. HTTP

Setting a User Agent and Retrieving a Web Page

    


#!/usr/bin/perl -w

use LWP;
use strict;

my $browser = LWP::UserAgent->new(agent => 'Perly v1');
my $result = $browser->get("http://www.braingia.org/ewfojwefoj");
die "An error occurred: ", $result->status_line() unless $result->is_success;

print $result->content;








Related examples in the same category

1.Using HTTP::Request to post request and save response to a file
2.Get a web page
3.Retrieving a Web Page with get()
4.Using getstore() to Print an Invalid Page
5.Using is_success() with getstore()
6.Get a web page and save it to a local file