my $icon = new Win32::GUI::Icon('GUIPERL.ICO');

my $main = Win32::GUI::Window->new(
   ...
   -icon => $icon,
   ...
);