require 5.004;
use strict;
use IO::Scalar;

my $output_string = '';
tie *STDOUT, 'IO::Scalar', \$output_string;

&stdout_sub();

untie *STDOUT;

sub stdout_sub {
    print "This will not print to screen.\n";
}