Select Code to Download

$ perl -Mblib -MPerlIO::via::xz -wE'open my $fh, "<:via(xz)", "files/p
+lain.xz";print scalar<$fh>'
Lorem ipsum dolor sit amet,   consectetur adipiscing elit,

$ perl -Mblib -MPerlIO::via::xz -wE'open my $fh, "<:via(xz)", "files/p
+lain.xz";$/=undef;print scalar<$fh>'

# Tests for PerlIO::via::xz

...
    }

done_testing;