use XML::Smart ;

  my $url = 'http://www.perlmonks.org/index.pl?node_id=16046' ;
  my $XML = XML::Smart->new($url) ;
  
  my $sitename = $XML->{XPINFO}{INFO}{sitename} ;
  my $user = $XML->{XPINFO}{INFO}{foruser} ;
  my $id = $XML->{XPINFO}{INFO}{id} ;  
  my $msg = $XML->{XPINFO}{INFO} ;  
  
  ## Generating the XML data again:
  print $XML->data ;