1*898184e3Ssthen#!./perl 2*898184e3Ssthen 3*898184e3SsthenBEGIN { 4*898184e3Ssthen $ENV{FOO} = "foo"; 5*898184e3Ssthen $ENV{BAR} = "bar"; 6*898184e3Ssthen} 7*898184e3Ssthen 8*898184e3Ssthenuse strict; 9*898184e3Ssthenuse Test::More tests => 2; 10*898184e3Ssthenuse Env qw(FOO $BAR); 11*898184e3Ssthen 12*898184e3Ssthen$FOO .= "/bar"; 13*898184e3Ssthen$BAR .= "/baz"; 14*898184e3Ssthen 15*898184e3Ssthenis($FOO, 'foo/bar'); 16*898184e3Ssthenis($BAR, 'bar/baz'); 17