my $encrypted_password = Digest::MD5::md5_hex("$var_username" . "$var_password"); #print "encrypted_password : $encrypted_password \n"; # This shows the encrypted password.