1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6} 7 8BEGIN { require "./test.pl"; } 9 10plan(tests => 1); 11 12# It is important that the script contains at least one newline character 13# that can be expanded to \r\n on DOSish systems. 14fresh_perl_is("\xEF\xBB\xBFprint 1;\nprint 2", "12", {}, "script starts with a BOM" ); 15