Select Code to Download

sub URLDekod {
    my $URLkodad = $_[0];
...
       $URLkodad =~ s/%([a-fA-F0-9]{2,2})/chr(hex($1))/eg;
       return $URLkodad;
      }

open (TEMP, "<$tempfil") or die "Kan inte \xF6ppna filen $kontorfil"; 
open (NYF, "+>$nyfil") or die "Kan inte \xF6ppna filen $nyfil";
...
close TEMP;
close NYF;
}