#!/afs/athena/contrib/perl/p

while(<>){
    chop;
    print("<a href=\"http://$_/\">$_</a>\n");
}