my $info = ImageInfo($qfn);
die "..." if exists($info->{Error});
die "..." if !exists($info->{ImageSize});
my ($x, $y) = $info->{ImageSize} =~ /^(\d+)x(\d+)\z/
   or die "...";