Select Code to Download

package PerlIO::via::AnyCRLF;

...
    return $len > 0 ? $buf : undef;
}
1;

#!/usr/bin/perl

...
print while <$f>;

# print "layers after reading  :", join(':',PerlIO::get_layers($f)), "
+\n";  # :unix:perlio:crlf:via

package PerlIO::via::AnyCRLF;

...
    return 1;
}
1;