Select Code to Download

#!perl -w
use strict;
...
);

print join("\n", apply { s/^\w_//; } sort keys %sections);