Better yet, assuming you are dealing with anything vaugely resembeling a modern perl, use a lexical variable as your filehandle:

sub slurp {
  open(my $FILE,"<params.i­nc") || die $! ;
    restore_parameters($FILE);
  close($FILE);
}
[download]