#!/usr/bin/env perl

use strict;
use warnings;

use PerlIO::via::QuotedPrint; # or any other PerlIO::via:: package from CPAN

binmode STDOUT, q{:via(QuotedPrint)};

open my $fh, q{>&}, q{STDOUT};

1;
__END__

##</code><code>##

No package specified at ./1.pl line 10