1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6} 7 8require './test.pl'; 9use File::Spec::Functions; 10 11print runperl( switches => ['-x'], progfile => catfile(curdir(), 'run', 'switchx.aux') ); 12