use Some::Module qw(print_blah);

	my $str;
 	my $io = tie *STDOUT, 'IO::Scalar', \$str;
        print_blah();	
	undef $io;
	untie *STDOUT;
        
        # print_blah() prints to stdout.