use Image::Size;
my ($width, $height) = imgsize($file);
($width) = $width =~ /(\d+)/;
($height) = $height =~ /(\d+)/;