# In the main script...
use strict;
use vars qw($foo);
# ... time passes ...
$foo = "whatever";

# In the module...
print $main::foo;