Update File.pm

If you set $onchange to "sub {}", the file function still will evaluate this as true, and thus do the MD5 code part, increasing the execution time by almost 2.