The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
ARC / perl-5.25.6 / t / io / crlf_through.t 
#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

no warnings 'once';
$main::use_crlf = 1;
do './io/through.t' or die "no kid script";