package P; 
sub new { bless {} } 
sub print_my_var { ... } 

package main; 
my $p = P->new(); 
my $q = $p; 
*r = $p;

$p->print_my_var(); 
$q->print_my_var();
$r->print_my_var();