#!/store/bin/perl

    print <<EOF;
<HTML>
<HEAD>
</HEAD>
<BODY>
<H1>Linker</H1>
<UL>
EOF

while (<>) {
    chop;
    # chop;
    if (/[+-]$/) {
        $tag = s/([-+])$//;
    }
    ($URL) = m/^(.*)$/;

    print "<LI><A HREF=\"$URL\">$URL</A>\n";
}

print <<EOF;
</UL>
</BODY>
EOF
