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

$main->SetIcon($icon);