package Test;
use strict;
use vars qw/$foo/;

$foo = "test";

1;