{ no strict 'vars'; local $/; my $in; open $in, '<', $test_env or die "..."; my $rc = eval <$in>; close $in; # set various values from that data structure. };