my $icon='/path/to/an/icon.ico';
my $out='/path/to/program.exe';
my $exe=Win32::Exe->new($out) or die "$out: $!";
$exe->update(icon => $icon);