#!/usr/bin/perl
 
use strict;
use XML::Rules;
use LWP::Simple;

my $streaminfo = get("http://127.0.0.1:8080/requests/status.xml"); 
  
my $parser = XML::Rules->new(
    stripspaces => 7,
    rules => {
        info => sub {
            print "$_[1]->{_content}\n";
            return;
        },
    }
);