my @caller=caller(0);
$DB::single=1 if ($caller[0] eq 'package::of::interest' and $caller[3] eq 'thatsub');