eval q{ use Tk::JPEG }; warn "No JPEG support" if $@;
eval q{ use Tk::PNG  }; warn "No PNG support"  if $@;
eval q{ use Tk::TIFF }; warn "No TIFF support" if $@;