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

use File::Find;

my @files;
sub wanted {
  push @files, $_;
}
find(\&wanted,C:/Documents and Settings/ME/My Documents/fantasy/Role_playing/Magic_items/Spell_scrolls);

for $file (@files) {
}

##</code><code>##

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;

##</code><code>##

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

##</code><code>##

my $html_file = basename($0);
my $pl_file   = $html_file;
   $pl_file   =~ s!html$!pl!;

open(my $new_pl_file, '>', $pl_file);
print $new_pl_file q{#!/usr/bin/perl
use strict;
use warnings;

use lib "C:/Documents and Settings/ME/My Documents/fantasy/files/perl/lib";
use RolePlaying::SpellList qw(print_spell_scroll);

print_spell_scroll(}

.join(',',@spell_list).

q{);};