use strict;
use LWP::Simple;

my $url = "http://kompas.com/kompas-cetak/0505/09/metro/index.htm";
my $conts = get $url or die "I canna do it Cap'n!\n";
print $conts;

##</code><code>##

ppm> install LWP
Error: No valid repositories
Error: 500 Can't connect to ppm.ActiveState.com:80 (Bad protocol 'tcp')
Error: 500 Can't connect to ppm.ActiveState.com:80 (Bad protocol 'tcp')