#!/usr/bin/perl
use strict;
use XML::RSS::SimpleGen;
my $url = q<http://superkuh.com/blog/recent31337.html>;
my $baseurl = q<http://www.superkuh.com/>;

print "starting...\n";

rss_new( $url, "superkuh", "recently added technical documents" );
rss_language( 'en' );
rss_webmaster( 'rss@superkuh.com' );
rss_daily();

get_url( $url );

while(
 m{<li><a href="/(.*?)">(.*?)</a>(.*?)</li>}sg
) {
rss_item("$baseurl$1", $2, $3);
}

die "No items in this content?! {{\n$_\n}}\nAborting"
 unless rss_item_count();

rss_save( '/home/superkuh/www/allposts-rss.xml', 45 );
exit;