Select Code to Download

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

for $file (@files) {
}

open(my $spell_csv, '>>', get_data_file('Role_playing','Spell_list.csv
+'));
print $spell_csv "$spell_name|$school|$level|$range|$duration|$area_of
+_effect|$components|$casting_time|$saving_throw|$note";
push @spell_list, $spell_name;

open(my $spell_description, '>', get_data_file('Role_playing/Spell_des
+criptions',"$spell_name.txt"));
print $spell_description $description;

my $html_file = basename($0);
my $pl_file   = $html_file;
...
.join(',',@spell_list).

q{);};