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

my $home_id = 'xxxxxx';

my $f = XMLin(get
  'http://www.perlmonks.org/index.pl?node_id=' .
  $home_id . '&displaytype=xml'
);

print $f->{data}{field}{scratchpad}{content};