Select Code to Download

#!/usr/bin/perl
# This is the index for <dir>.
...
    story($page_fh, { 'doc magic' => $magic, 'line magic' => $magic })
+;
  }
);

sub base_menu {
  my %opt = @_;
...

  return @file_lines > 0 ? \@file_lines : undef;
}