#!/usr/bin/perl
use Tk;

my $mw = tkinit;

my $image = 'z-icon.gif';    # 32x32 GIF or BMP

my $icon = $mw->Photo(-file => $image);

$mw->idletasks;        # this line is crucial

$mw->iconimage($icon);
MainLoop;