perl Tk-JPEG-Lite