use Digest::MD5 qw(md5_hex);
use strict; 
use warnings;

my $secret = "applepie";