package My::Object;

use vars qw($global1 $global2);

sub global1 { $global1 }
sub global2 { $global2 }

sub globalMethod { ... }

package My::SomeClass;

use base qw(My::Object);

package main;

my $g1 = My::Object->global1;

$any_my_object->globalMethod();