sub slurp { my $file = IO::File->new("params.inc","<") or die $!; restore_parameters($file); $file->close(); }