#!/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) {
}