my $out;
open my $fh, '>', \$out or die "cant open variable\n";
select $fh;
print1('foo');

# do some stuff

print STDOUT $out;