##
#!/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;
},
}
);