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');

##</code><code>##

No resource section found in file test.exe at C:/Perl/site/lib/Win32/Exe.pm line 348.
No resource section found in file test.exe at C:/Perl/site/lib/Win32/Exe.pm line 348.
Can't call method "remove" on an undefined value at C:/Perl/site/lib/Win32/Exe.pm line 473.