Select Code to Download

use warnings;
use strict;
...
<STDIN>;

Win32::Process::KillProcess($pid, $exitcode);

use warnings;
use strict;
...
    print "$0 in a loop....\n";
    sleep 1;
}