our @ISA = qw(Tie::Handle);

##</code><code>##

my $output = ''; # to store the output.

open SECOUT, ">&STDOUT";
tie *STDOUT, 'BLAH', \$output;

package BLAH;

use Tie::Handle;
our @ISA = qw(Tie::Handle);

sub TIEHANDLE {
    my $class = shift;
    my $save_to = shift;
    return bless({SAVE_TO => $save_to}, class);
}

sub PRINT {
    my $self = shift;
    ${$self->{SAVE_TO}} .= join '', @_;
}