in_some_sub{ open(THISFILE,'< $file') or warn "ERROR: Can't open $outfile!\n"; binmode(THISFILE); while(read(THISFILE,$part,1)){ $md5->add($part); } $data = $md5->hexdigest; return unless ($data); remove_dupes($data,$file); }