use GD; 

$file = "$html_root/file1.gif"; 

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

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

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