Check if ExtractInfo was successful (Tip #11 from the Basic debugging checklist):

if ($exifTool->ExtractInfo($file, 'Verbose')) {
    # do your stuff
}
else {
    die "ExtractInfo error";
}
[download]