_A.pl_
...
my $dummy=1;
threads->create("B::c", ($dummy));
...


_B.pm_
...
sub c{...}
...