Create Crypto_soln_bettkd.pl

This script was created using perl 5, version 14, subversion 2 (v5.14.2) built for i686-linux-gnu-thread-multi-64int