#!/usr/bin/perl

use strict;
use warnings;

use IO::Scalar;

my $data;

{
    local *STDOUT;
    tie *STDOUT, 'IO::Scalar', \$data; 
    &print_something();
}

print "\$data: $data";

sub print_something()
{
    print "something\n";
}

##</code><code>##

$data: something