Select Code to Download

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