Put use Tk::JPEG; on top of the script and install the Tk::JPEG or Tk::JPEG::Lite module from CPAN or via PPM. With Tk804.* Tk::JPEG is already part of the standard Tk module set.