Select Code to Download

#!/usr/bin/perl -l
use strict;
...
for (sort {$a <=> $b} keys %generations) {
  printf "%${max_length_generation}s: %${max_length_children}s\n",$_,c
+ommify($generations{$_});
}