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