use strict;
 use warnings;
 use LWP::UserAgent ();

 my $ua = LWP::UserAgent->new;

 my $response = $ua->get('http://www.perlmonks.org/?node_id=1193449');

 if ($response->is_success) {
        print $response->decoded_content;
 }
 else {
     die $response->status_line;
 }