my $GMS = new GMS;

my $sitename = $GMS->getsetting('GUILD','SITENAMET');

my($name,$email,$icq) = ('Iron','flame@berkshire.rr.com','16307443');
my @stats = (100,100,25);

my $skills = [
              {'SKILL' => 'Anatomy','VALUE' => 100},
              {'SKILL' => 'Swordsmanship','VALUE' => 100},
              {'SKILL' => 'Tactics','VALUE' => 100}
             ];

my $notes = "This is a long test string.\n\n" x 10;

pipe(GMMAILO,GMMAIL) or die($!);

select(GMMAIL);
$|=1;

print "Testing...";

write();# or die($!);

close(GMMAIL);

select(STDOUT);

my @temp = <GMMAILO>;

print join('',@temp);