http://www.perlmonks.org?node_id=151460


⭐ in reply to How do I change the icon on Toplevel?

Check out the $toplevel->Icon method. Here's a short example: 

my $image = $top->Photo( -data => $imageDat, -format => 'gif' );

$top->Icon( -image => $image );

[download]
I tested this on ActiveState Perl 5.6.1 build 631, Tk 800.023.

In Section Seekers of Perl Wisdom