sub thumb_with_gd
my ($infile, $outfile, $image, $error, $x, $y,
            $width, $height, $thumb);

sub thumbnail_dimensions
my ($x, $y, $ratio, $height, $width);