Select Code to Download

section($tab, sub {
    for my $line (@$_) {
...
        paragraph($tab,$line);
    }
}) for @sections;