find:
open(FILE, "<$link") || print("Location: $linknn");
# binary mode?
if($content_type !~ m/^(text/(html|plain))/i) {
binmode FILE || &StandardHTML("Unable to open $in{link} in binary mode.");
}
flock(FILE, LOCK_SH) or die "Can't obtain shared lock: $!";
while (<FILE>) {print $_;}
flock(FILE, LOCK_UN) or die "Can't release lock: $!";
close(FILE);
Replace with just:
print("Location: $linknn");