#!/usr/bin/perl -w

use strict;
use LWP::Simple;
use CGI qw( :standard );

print "Content-type: text/html\n\n";
print start_html;
my $RSS = get("http://thraxil.org/rss");

my @items = $RSS =~ m!<item.*?>(.*?)</item>!gis;
for (@items) {
   my ($title) = m!<title>(.*?)</title>!is;
   my ($link) = m!<link>(.*?)</link>!is;
   my ($desc) = m!<description>(.*?)</description>!is;
   next unless $title && $link && $desc;
   print "Title: $title\nLink: $link\nDescription: $desc\n\n";
}