use Digest::MD5 qw(md5_base64);
my $checksum=md5_sum($data);