Select Code to Download

use strict;
use warnings;
my %scalars;
...

$\ = $, = "\n";
print sort keys %scalars;