1#!./perl -0 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6 require './test.pl'; 7} 8 9plan tests => 1; 10 11is(ord $/, 0, '$/ set to 0 via switch'); 12