use strict;
use Foo qw($test);

print $test, "\n";