#!/usr/bin/perl -w

use XML::DOM;

my $value = $ARGV[0];
my $StatePath = 'plant/stems/stem_type/';
my $base_dir = '/home/openkey/public_html/character/xml/';
my $dir = $base_dir . $StatePath;
my $file = $dir . $value . '.xml';

my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile('/home/openkey/public_html/shared/state_simple.xml');

$doc->printToFile("$file");

#open(OUT, <