use Tk; use Tk::Photo; my $mw=new MainWindow; my $foto=$mw->Photo(-file => 'picture.gif'); $mw->Button(-image => $foto)->pack(); $mw->MainLoop;