http://qs1969.pair.com?node_id=185789


in reply to Tk, images, where do I begin.

Little bit to get you started:
use Tk; use Tk::Photo; my $mw=new MainWindow; my $foto=$mw->Photo(-file => 'picture.gif'); $mw->Button(-image => $foto)->pack(); $mw->MainLoop;
I could have attached the $foto object to any widget that will take a -image option (i.e. Label) or a canvas (with createImage()).