tie *STDOUT, 'IO::Scalar', \$stdout;