local (*STDOUT, *READOUT, *WRITE);

pipe READOUT,   WRITE  or die $!;
open STDOUT, '>&WRITE' or die $!;
close           WRITE;

@result = &$code();

close STDOUT;
my $stdout = <READOUT>;