Select Code to Download

use strict;
use warnings;
...
print sort f (1,2,3);

sub f {1}

use strict;
use warnings;
...

sub f {($b % 2) <=> ($a % 2)}