in reply to making smaller perlapp exe's
my @file = map /\A\+\+\+ (.*)\z/g, <>; my @size = map -s, @file; print map "$_\n", @file[sort { $size[$b] <=> $size[$a] } 0 .. $#size ] +; [download]
Makeshifts last the longest.