binmode STDOUT, ':via(QuotedPrint)'; my $fh = \*STDOUT; print $fh " ";