function1(\$obj);
function2($obj);

sub function1
{
   my ($objref) = @_;
}

sub function2
{
   my ($obj) = @_;
}