use Digest::MD5 qw/md5_hex/;
print md5_hex("passwort");