my($file, $x, $y);
    ($file)= @_;
    open(FILE, "<$file") or return (0,0);
    binmode(FILE);
    if ($file =~ /jpe?g$/i){    ($x,$y) = &jpegsize(\*FILE);        }
    elsif($file =~ /\.gif$/i){    ($x,$y) = &gifsize(\*FILE);;        }
    elsif($file =~ /\.xbm$/i){    ($x,$y) = &xbmsize(\*FILE);        }
    elsif($file =~ /\.png$/i) {($x,$y) = &pngsize(\*FILE);       }
    close(FILE);
    return ($x,$y);