#!/usr/bin/perl

print "Content-Type: text/xml\n\n";
print "<vxml version='2.0'>\n";
print "<form>";
print "<block>\n";

open (SLASHDOT, "lynx www.slashdot.org/palm -dump|");
while (<SLASHDOT>) {
if (/.*\d\..*|.*AD:.*|.*Stories continued.*|.*Home page.*|References/) {
print "\n";
} else {
s/\[.*\]//g;
print;
print "."; # added so the headlines don't get slurred together
}
}

print "</block>\n";
print "</form>\n";
print "</vxml>";