#!/usr/bin/perl -w
use Digest::MD5 qw(md5_hex);

$string = $ARGV[0];
print md5_hex($string), "\n";

exit;