Select Code to Download

  $from = "news.dat";

open(FILE, "$from") || die "Can't open $from!\n";
...
    print "<table width=400><tr>";
    print "<td><a href=\"$url\"><font color=blue>$title</font></a><br>
+<font color=black>$date,$site<br>$description</font></td>";
    print "</tr></table><br>";