my $obj_A = A->new ; #creating object of A.pm

my $label = $frame->Label(-anchor =>'nw', -text => 'MyLabel");

$self->{labelName} = $label;

$label->bind("<Button-1>", 
              sub { $self->onEnter($label, $obj_A) ; }
            )