Select Code to Download

use open IO => ":utf8";
while (<>) {
    my @layers = PerlIO::get_layers(\*ARGV);
    say "(@layers)";
}

use strict;
use warnings;
...
        print length, " ", $_, "\n";
    }
}