Select Code to Download

use feature qw/say/;
use Math::Trig;
...
}
else{}
}

 open(OUTPUT, '|sort >foo')  # pipe to sort
        or die "Can't start sort: $!";
...
                   : "Exit status $? from sort";
    open(INPUT, 'foo')          # get sort's results
        or die "Can't open 'foo' for input: $!";