use LWP::UserAgent;
use XML::LibXML;
use XML::LibXSLT;

my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();

my $source = $parser->parse_string( getURL(
 "http://www.perlmonks.org/index.pl?node=Newest%20Nodes%20XML%20Generator;days=0.5"
));
my $style_doc = $parser->parse_file('/usr/home/mhicks/pmScrolls/pm_newest.xsl');

my $stylesheet = $xslt->parse_stylesheet($style_doc);

my $results = $stylesheet->transform($source);

print $stylesheet->output_string($results);

sub getURL {
  my $url = shift;
  my $request = HTTP::Request->new(GET => $url);
  my $ua = LWP::UserAgent->new;
  my $response = $ua->request($request);
  return $response->content();
}