open(FILE, $file) or die "Can't open '$file': $!";

ich habe auch eine methode geschrieben,die die Procedure "sub get_MD5"verwendet.