Select Code to Download

#!/usr/bin/perl
# This is the index for Collections.
...
__DATA__
Welcome to Lady Aleena's B<collections>, which is lists of A<novels|hr
+ef="Fiction.pl">, A<books|href="Non-fiction.pl">, A<music|href="Music
+_and_comedy.pl">, A<movies|href="Movies.pl">, A<tie-ins|href="Tie-ins
+.pl">, and A<programs|href="Programs.pl"> I am willing to admit I own
+ or use. The list of movies here is just those movies I own and shoul
+d not to be confused with my more general interest in A<movies|href="
+../Movies">. Tie-ins are books and music connected to movies or telev
+ision series. I also share my A<fandom|href="../Fandom"> elsewhere.
Here is a key for the notations after each title with the exception of
+ programs.

#!/usr/bin/perl
use strict;
...

__DATA__
This is my B<fiction collection> of SPAN<hardcovers|^hardcovers^>, SPA
+N<trade paperbacks|^trades^>, and SPAN<mass market paperbacks|^massma
+rkets^>.

#!/usr/bin/perl
use strict;
...

__DATA__
This is my B<movie collection> of SPAN<blu-rays|^brds^>, SPAN<DVDs|^dv
+ds^>, and SPAN<VHSs|^vhss^>.

#!/usr/bin/perl
use strict;
...

__DATA__
This is my B<music and comedy collection> of SPAN<LPs|^lps^>, SPAN<45s
+|^ffs^>, SPAN<cassettes|^cassettes^>, and SPAN<CDs|^cds^>. If it is n
+ot on a CD, I have not heard it in a long long time. SPAN<&#9785;|cla
+ss="bigger">

#!/usr/bin/perl
use strict;
...

__DATA__
This is a list of B<programs> that I am using or have used. I can not 
+account for I<all> the software we have had and used over the years. 
+Some of it was so bad, we blanked it out of our heads. This list does
+ not include a full list of hardware drivers either. So much software
+, so little time or in this case patience.

#!/usr/bin/perl
use strict;
...
This is my film and television B<tie-in collection>.
For books: SPAN<hardcovers|^hardcovers^>, SPAN<trade paperbacks|^trade
+s^>, and SPAN<mass market paperbacks|^massmarkets^>.
For music: SPAN<CDs|^cds^>, SPAN<cassettes|^cassettes^>, SPAN<45s|^ffs
+^>, and SPAN<LPs|^lps^>.

#!/usr/bin/perl
# This is the index for Collections.
...
    });
  }
);

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

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