Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
my $expr = $condition ? '$scores{$b} <=> $scores{$a}' : '$scores{$a} <
+=> $scores{$b}';

print join "\n", sort {eval $expr} keys %scores;

#!/usr/bin/perl
use strict;
use warnings;
...
};

print join "\n", sort $code_ref keys %scores;