#!./perl
BEGIN {
        $ENV{FOO} = "foo";
        $ENV{BAR} = "bar";
}
use strict;
use Test::More tests => 2;
use Env qw(FOO $BAR);
$FOO .= "/bar";
$BAR .= "/baz";
is($FOO, 'foo/bar');
is($BAR, 'bar/baz');