sub md5sum{
   my $file = shift;
   my $digest = "";
   eval{
     open(FILE, $file) or die "Can't find file $file\n";
     my $data;
     read FILE, $data, 65536 or die "Can't read from $file\n$!";
     my $ctx = Digest::MD4->new;
     $ctx->add($data);
     $digest = $ctx->hexdigest;
     close(FILE);
   };
   if($@){
     print $@;
     return "";
   }
   return $digest;
}