#!/usr/bin/perl

use PerlIO::via::AnyCRLF;

open my $f, "<:via(AnyCRLF)", "le.txt" or die $!;

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

print while <$f>;

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