Select Code to Download

#!/usr/bin/perl
use strict;
...
while (defined (my $hr = $csv->getline_hr($io))) { 
  print Dumper($hr);
}

#!/usr/bin/perl
use strict;
...
print qq{<h2><a href="$filename" id="$id_name">$first_name $last_name<
+/a></h2>\n};
list_loop(\%general_information);
list_loop(\%ability_scores);