1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6} 7 8no warnings 'once'; 9$main::use_crlf = 1; 10do './io/through.t' or die "no kid script"; 11