my $bologna;
{
pipe(READ,WRITE);
local *STDOUT=*WRITE; 
local $|=1; #don't forget to unbuffer
(your evil STDOUT hard-coded code)
$bologna=<READ>;
}
print $bologna;