close STDOUT;
my $ogg_out;
open  *STDOUT, ">", \$ogg_out or die $!;

##</code><code>##

Failed writing data to output stream
Broken pipe