use Tk;<br/>
my $top = new MainWindow;<br/>
my $pic = $top->Photo(-file=>"img/hals.gif");<br/>
$top->Button(-image=>$pic)->pack();<br/>
MainLoop();<br/><br/>