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