my $key_string = do { use warnings qw(FATAL); local(@ARGV,$/) = ($file); <> };