#!/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;