my $image=$mw->Photo(-file=> "logo.gif");
$mw->idletasks;
$mw->Icon(-image => $image);

##</code><code>##

sub icon {
my $sIcon = Win32::Console::SetIcon("logo.gif");
}