package A;

my $var = 1;

sub mysub {
  print $var;
}

B::yoursub( \&mysub );

1;