use GD;

$file = "$html_root/file2.jpg";

open (IMAGE, $file) || &sys_error("Can't open $file: $!");

$im = newFromJpeg GD::Image(IMAGE) || &sys_error("Can't create image from $file: $!");

close IMAGE;

($im_width,$im_height) = $im->getBounds();