#! perl -w
die unless defined($title=shift @ARGV);
die unless defined($link=shift @ARGV);
die unless defined($description=shift@ARGV);
die unless defined($itemtitle=shift@ARGV);
die unless defined($itemlink=shift@ARGV);
print << "EOF";
<rss version="2.0">
  <channel>
    <title>$title</title>
    <link>$link</link>
    <description>$description</description>
<item>
<title>$itemtitle</title>
<link>$itemlink</link>
<description>
EOF
while(<STDIN>){
s/&/&amp;/g;
s/</&lt;/g;
print;
}
print << 'EOF';
</description></item></channel></rss>
EOF
