#!/usr/bin/perl -w
use Digest::MD5;

$string = $ARGV[0];
$feed = Digest::MD5->new;
$feed->add($string);
$dgst = $feed->hexdigest;
print "$dgst\n";

exit;