my $key=`cat $file`;

##</code><code>##

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