my $mech = WWW::Mechanize->new;

$mech->get($url);


my @lines = split(/\n+/,$mech->content);

foreach( @lines ) {

   print $_ . "\n";

}