Select Code to Download

package backwards;
sub pmc { $::b cmp $::a };
...
sub foo { print for sort backwards::pmc ( split /\s+/, `cat $0` ) }
package main;
blah::foo();

package backwards;
sub pmc($$) { $_[1] cmp $_[0] };
...
sub foo { print for sort backwards::pmc ( split /\s+/, `cat $0` ) }
package main;
blah::foo();