#!/usr/bin/perl

use warnings;
use strict;
use LWP::Simple;
use XML::Simple;

my $url = "http://www.bbc.co.uk/6music/ro/flash_data.sssi";

my $xml = get($url);

unless($xml) {
        die "Couldn't get xml out of $url: $!\n";
}

my $ref = XMLin($xml, forcearray=>1);
foreach my $block (@{$ref->{page}}) {
        my $lines = $block->{line};
        print join "\n", @$lines;
        print "\n";
}