pipe(TESTOUT,TEST) or die($!);

my $t1 = '1';
my $t2 = '2';
my $t3 = '3';

select(TEST);
$|=1;

print "Testing...";

write();

close(TEST);

select(STDOUT);

my @temp = <TESTOUT>;

print join('',@temp);

format TEST=
@||| @||| @|||
$t1,$t2,$t3
@||| @||| @|||
$t3,$t2,$t1
.

##</code><code>##

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);