9 lines
230 B
Perl
9 lines
230 B
Perl
use strict;
|
|
use LWP::UserAgent;
|
|
|
|
my $url = 'http://www.rosettacode.org';
|
|
my $response = LWP::UserAgent->new->get( $url );
|
|
|
|
$response->is_success or die "Failed to GET '$url': ", $response->status_line;
|
|
|
|
print $response->as_string
|