#!/usr/bin/perl
use LWP::Simple 'get';
use XML::RSS;
use Jcode;
my $URL = 'http://slashdot.jp/slashdot.rdf';
my $rss = new XML::RSS;
eval {
$rss->parse(get($URL));
};
print qq|Content-Type: text/html\n\n|;
print qq|\n|;
print qq|\n|;
for my $item (@{$rss->{items}}) {
printf qq|%s
\n|, $item->{link}, Jcode::convert(\$item->{title}, sjis);
}
print qq|\n|;