Select Code to Download

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

my $t1 = '1';
...
@||| @||| @|||
$t3,$t2,$t1
.

my $GMS = new GMS;

my $sitename = $GMS->getsetting('GUILD','SITENAMET');
...
my @temp = <GMMAILO>;

print join('',@temp);