my $sfx = File::Spec->catfile(LocationOfUnzipsfxExe(), 'unzipsfx.exe');
system( qw( zip -A ), $exe, $sfx, $zip ) and die "$?";
unlink $zip;