use 5.011;    # implies strict + feature 'say'
use warnings;
use pp;
use Win32::Exe;

my $name = shift;
my ( $script, $exefile, $icon ) = map { "$name.$_" } qw(pl exe ico);
say "creating $exefile from $script";
@ARGV = qw(-g -o);
push @ARGV, $exefile, $script;
pp->go();
say "setting icon from $icon";
my $exe = Win32::Exe->new($exefile);
$exe->set_single_group_icon($icon);
$exe->write;