Select Code to Download

use subs 'select';
sub select {
...
select STDERR;
print "Hello to STDERR!\n";
select STDOUT;

use v5.12;
use warnings;
...
};

1;