use Tk;
use Tk::PNG;

my $tk_win = new MainWindow;

my $icon = $tk_win->Photo(-width => 32, -height => 32, -file => 'files/icon.gif');
$tk_win->iconimage($icon);