tie *OUT, 'IO::Scalar', \$foo