my $image = GD::Image->newFromJpeg('many.jpg') or die $!;
my @size = $image->Bounds();