use strict;
use LWP::Simple;

print &getHTML('http://www.perlmonks.org');

sub getHTML($) {
   my $url = shift;

   my $content = get($url);

   return getprint($url);
}