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 = ; print join('',@temp); format TEST= @||| @||| @||| $t1,$t2,$t3 @||| @||| @||| $t3,$t2,$t1 .