#!/usr/bin/perl -w

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

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

{
  local $/ = "</item>"; 
  open my $rss, "<", \$RSS or die "Aaiiigh - $!";
  while (<$rss>) {
      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";
  }
  close $rss;
}