use Digest::MD5 'md5_hex';

my ($user, $domain, $password) = @ARGV;
my $digest = md5_hex("$user:$domain:$password");
print "Digest = $digest\n";