Don't write a file-hashing thing like that yourself; use Cache::Cache which does it for you.