#!/usr/bin/perl print <<'EOT'; Hotlist

Hotlist of WWW-Pages

) { chop($_) if m|\n$|; if ($first) { print "

"; } else { print "$_\n"; } $first = 1 - $first; } close(FILE); print <<'EOT';

EOT