in reply to Re^5: Bitmap for beginners (Perl Tk)
in thread Bitmap for beginners (Perl Tk)

This works also fine: 

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/>

[download]
a .GIF instead of a .BMP

In Section Seekers of Perl Wisdom