sub slurp {
        my $fname = shift;
        local $/;
        open my $FILE, '<', $fname or die "Cannot open '$fname' because: $!";
        chomp( my $key = <$FILE> );
        return $key;
}