Select Code to Download

#!/usr/bin/perl

...
print (sort   &f ( 0 ) );

sub f { 1 }

Chromium:~ lexicon$ perl -l little.pl
1
...
0
0
1