Select Code to Download

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

out("EOF");

use v5.12;
use warnings;
...
    #warn "STDERR:",$input," ";
    $input ="";
}

((( STDOUT ::: 
1
...
2
))) STDOUT ::: 
exit by EOF