zdrojak
#!/usr/bin/perl -w

use strict;
use LWP::Simple;
use Encode;
use HTML::TreeBuilder;
binmode (STDOUT, ':utf8');

use XML::RSS;
my $rss = XML::RSS->new (version => '2.0');
$rss->channel(title          => 'radio23.cz live',
              link           => 'http://radio23.cz/live.php',
              language       => 'cz',
              description    => 'zive vysilani radio23.cz',
              copyright      => 'copyleft',
              pubDate        => 'Thu, 28 Oct 2009 07:00:00 GMT',
              );

my $uri = 'http://www.google.com/calendar/htmlembed?src=radio23%40email.cz&src=churek%40atlas.cz&src=otzz%40seznam.cz&src=d4dk1ekila1nt2t1e9te8mucd4%40group.calendar.google.com&src=vhp7s6j7e66g314iljq68obsd8%40group.calendar.google.com&src=2jo0pup49bp2fvttb8d5o0hit0%40group.calendar.google.com&src=5b53bip8r1q52nv7gpktrambc0%40group.calendar.google.com&src=l4moeodt6jdrm8o8np5cbh2a8s%40group.calendar.google.com&src=rd4921gkq6qujmjtdu3ns3csu4%40group.calendar.google.com&src=fhhfcad14vhp8nu9k7eaesb7sg%40group.calendar.google.com&src=4ecokd4dk826a8ovdalv07d7gc%40group.calendar.google.com&src=apm71%40seznam.cz&src=radio23%40email.cz&src=s9mlqbjratkrgiv3auh5a5kgnk%40group.calendar.google.com&src=t3lbeppd5gtjv5slo1vccc9j28%40group.calendar.google.com&mode=AGENDA';
my $tree = HTML::TreeBuilder->new_from_content(decode_utf8(LWP::Simple::get($uri)));
foreach my $a2 ($tree->look_down(sub {$_[0]->tag() eq 'div' and $_[0]->attr('class') =~ /date-section/}))
{
	my @a = $a2->look_down(sub {$_[0]->tag() eq 'div' and $_[0]->attr('class') eq 'date'});
	my $datum = $a[0]->as_text();
	foreach my $a4 ($a2->look_down(sub {$_[0]->tag() eq 'tr' and $_[0]->attr('class') eq 'event'}))
	{
		my @b = $a4->look_down(sub {$_[0]->tag() eq 'td' and $_[0]->attr('class') eq 'event-time'});
		my $cas = $b[0]->as_text();
		my @c = $a4->look_down(sub {$_[0]->tag() eq 'span' and $_[0]->attr('class') eq 'event-summary'});
		my $popis = $c[0]->as_text();
		$datum =~ s/\. /./g;	
		$rss->add_item(title => "$datum $cas - $popis",	permaLink  => "http://radio23.cz/live.php");
	}
}

print "Content-type: text/xml\n\n";
print $rss->as_string;