Can't clone STD handle with :via layer

zdm has asked for the wisdom of the Perl Monks concerning the following question:

#!/usr/bin/env perl

use strict;
use warnings;

use PerlIO::via::QuotedPrint; # or any other PerlIO::via:: package fro
+m CPAN

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

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

1;
__END__
[download]

This code runs with error:

No package specified at ./1.pl line 10
[download]

Can anybody help with this?

Back to Seekers of Perl Wisdom