my($w, $h, $err) = imgsize($file);
die $err if ($err);