use strict;
use warnings;

require Digest::MD5;

my $user = "foo";
my $pass = "bar";
my $key = "something";
my $md5 = Digest::MD5->new();
$md5->add(join(":", $key, $user, $pass));
print $md5->hexdigest;