open(my $in,"<:via(MD5)", $file)