#!/usr/bin/env perl
use strict;
use warnings;
use PerlIO::via::QuotedPrint;

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

##</code><code>##

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