md5 checksum utility

[tampabay420]

in Perl;

 use Digest::MD5;

 $ctx = Digest::MD5->new;

 #$ctx->add($data);
 
	open (FILE, $ARGV[0]) || die ("\nCan't Access File!\n");
	
 $ctx->addfile(*FILE);

	close (FILE);

	print "\nFile Name:\t".$ARGV[0];

$digest = $ctx->digest;
	
	print "\nRaw Digest:\t".$digest;
 
$digest = $ctx->hexdigest;

	print "\nHex Digest:\t".$digest;

$digest = $ctx->b64digest;  
	
	print "\nBase64 Digest:\t".$digest;

I'm trying to compile it for you, will repost binary