Your object is now a global variable...

You could create a package that houses all of your variables and share them:

package Variables;
use strict;
use warnings;

our $foo = 'Foo';
our $bar = 'Bar';

1;
[download]

And then in your main file:

use Variables;
use strict;
use warnings;

print $Variables::foo;
[download]