#!/usr/bin/perl
use strict;
use warnings;
use Digest::MD5;

my $md5 = Digest::MD5->new;
$md5->add('hallo@fehl','1112');
my $message = $md5->digest;

print unpack('H*',$message)."\n";