Select Code to Download

cmd /c pp -v -g -o xxxxx.exe xxxxx.pl
perl -e "use Win32::Exe; $exe = Win32::Exe->new('xxxxx.exe'); $exe->se
+t_single_group_icon('xxxxx.ico'); $exe->write;"

use 5.011;    # implies strict + feature 'say'
use warnings;
...
my $exe = Win32::Exe->new($exefile);
$exe->set_single_group_icon($icon);
$exe->write;