use strict;
use LWP::Simple;

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

sub getHTML($) {
   return getprint(shift);
}