Select Code to Download

#!perl -slw
use strict;
...
Hello from ithread 2
Hello from ithread 2
Hello from ithread 2

...
else {
...
    open STDOUT, '>', 'con' or die $!;
     ...
}