use Win32::API;
use Win32API::Const;
use Win32::GUI::Bitmap;

...

my $icon = new Win32::GUI::Bitmap("C:\icon.ico", 1, 32, 32, 0x0010);

SendMessage($widget->id, WM_SETICON, 1, $icon);