use strict;
use LWP::UserAgent;

my $href     = "http://kompas.com/kompas-cetak/0505/09/metro/index.htm";
my $ua       = new LWP::UserAgent;
my $request  = new HTTP::Request ("GET" => $href);

$ua->env_proxy,
$request->proxy_authorization_basic($ENV{HTTP_proxy_user}, $ENV{HTTP_proxy_pass})
    if defined $ENV{HTTP_proxy};

my $response = $ua->request($request);

if ($response && $response->is_success) 
{
    print "Success!\n", $response->content;
}
else
{
    print "Failed!\n", $response->as_string;
}