1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!./perl BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } BEGIN { $ENV{FOO} = "foo"; } use Env qw(FOO); $FOO .= "/bar"; print "1..1\n"; print "not " if $FOO ne 'foo/bar'; print "ok 1\n";