Select Code to Download

use Win32::Process;
my $currentProcess;
...
} else {
  warn "Can not find myself ($^E)\n";
}