Digest::MD5

#!/usr/bin/perl

use Digest::MD5  qw(md5 md5_hex md5_base64);

$data=$ARGV[0];
chomp $data;

$digest = md5($data);
print "$data $digest\n";
 $digest = md5_hex($data);
print "$data $digest\n";
 $digest = md5_base64($data);
print "$data $digest\n";