#!/usr/bin/perl
#takes file "links" and makes every line a link
#and writes to a file called "links.html"

open(LINKS, "links");
open(F, ">links.html");
while ($line = <LINKS>) {
 print F "<a href=$line>$line</a><br />\n";
}
close LINKS;
close F;