See threads, Proc::Background, Proc::Fork, Sub::Fork

Basically, fooA controls fooB, when fooA is about the end, it interrupts, stops, kills... fooB before returning

sub fooA {
   ...
   my $fooB = oneOfTheAboveModules( \&fooB );
   ...
   $fooB->stop;
   return
}
[download]