Help for this page
open(K, "<$file") or die "$file: $!\n"; my $key = do { local $/; <K> }; close(K); chomp($key);