Select Code to Download

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

c:\test>junk66
};{subsplitsortprintpmcpackagepackagemain;cmpbackwards;backwards::pmc`
+cat/\s+/,)($::b$::a$0`