sub param_hash_bilden { my $file = shift; open (I, $file) or die $file; my $include; { local $/; $include = ; } (INCLUDE => $include); }