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

##</code><code>##

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