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