open(FILE, "links.dat") || die "Can't open file!";
flock(FILE, 2) || die "Can't lock file!";

while ($line = <FILE>) {
  chomp $line;
  my @part = split(/\|/,$line);

if ($part[0] eq "") {
  &stopit;
}

if ($part[3] eq "new") {
  $which = " target=\"_blank\"";
}
  print "<li><a href=\"$part[2]\"$which>$part[1]</a></li><br>\n";
}

close(FILE);

print "</ul></body></html>";

sub stopit {
close(FILE);
print "There are currently no links :(";
exit;
}