I prefer to use modules :)

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

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

Ciao, Valerio