#!/usr/local/bin/perl
use Tk;
use Tk::Photo;
$mw    = new MainWindow;
$mw -> geometry ("820x780");
@files = <*gif>;
for $image (@files)
{
   $shot = $mw->Photo(-file => "$image");
   $mw->Button(-image => $shot)->pack();
   $mw->update;
   select(undef, undef, undef, .1);
}
$mw->MainLoop;