open (FILE, "links.txt") || Error ('open', 'file');
flock (FILE, 2) || Error ('flock', 'file');
@list=<FILE>;
close(FILE);

foreach $list(@list) {
$count++;
if ($list =~ /$link/i) {
$count--;
splice(@list, $count, 1);

open (FILE, ">links.txt") || Error ('open', 'file');
flock (FILE, 2) || Error ('flock', 'file');
print FILE @list;
close(FILE);
}
}