use strict;
use warnings;

use IO::Scalar ();

open my $SAVEOUT, ">&STDOUT";
print {$SAVEOUT} "";

my $buffer = "";

tie *STDOUT, 'IO::Scalar', \$buffer;

sub reset_out_buffer
{
    $buffer = "";
}

sub get_out_buffer
{
    return $buffer;
}

1;