Select Code to Download

#!/usr/bin/perl -w

...
my $exe=Win32::Exe->new($stub) or die "$stub: $!";
$exe->SetSubsystem($console ? 'console' : 'windows');
$exe->write($out);