use strict;
use vars qw($foo);
# ... code that uses $foo ...
1;