use LWP::Simple;
use XML::Simple;

print XMLin(get('http://perlmonks.org/?node_id=37150;nodes=243219'))->{NODE}->{content}, "\n";