use strict;
use warnings;

use Win32::Exe;
my $exe = Win32::Exe->new('test.exe');

$exe = $exe->create_resource_section if !$exe->has_resource_section;

$exe->update( icon => 'test.ico',
			  gui => 1);
$exe->write('another.exe');