#!/usr/bin/perl 

use Digest::MD5 qw(md5_hex);
print "MD5 digest for ".$ARGV[0]." is ", md5_hex($ARGV[0]), "\n";