open (TEMP, "<$tempfil") or die "Kan inte \xF6ppna filen $kontorfil"; 
open (NYF, "+>$nyfil") or die "Kan inte \xF6ppna filen $nyfil";
flock (NYF,2) or die $!;
while (<TEMP>) {
print NYF URLDekod($_);
close TEMP;
close NYF;
}