Graphics::DZI is a Perl module that generates tiles from a given image in such a way that they follow the DeepZoom image pyramid scheme. Consequently this image becomes zoomable with tools like Seadragon.
As this is a base class, you may want to look either at the deepzoom script which operators on the command line, or at one of the subclasses.
my $dzi = Graphics::DZI (image => $image,
overlap => $overlap,
tilesize => $tilesize,
format => $format,
write_file ('/var/www/xxx.xml', $dzi->descriptor);
# !!! this does only display the tiles on the screen
# !!! see Graphics::DZI::Files for a subclass which
# !!! actually writes to files