use strict;
use LWP::UserAgent;

my $lwp       = LWP::UserAgent->new( agent => 'Mozilla/5.0' );
my $response  = $lwp->get ("http://kompas.com/kompas-cetak/0505/09/metro/index.htm");

if ( $response->is_error )
{
    print "Error: ", $response->as_string();
}
else
{
    print "Success: ", $response->as_string();
}