Select Code to Download

#!/usr/bin/env perl
use strict;
...

binmode STDOUT, ':via(QuotedPrint)';
print " ";

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