use threads;
use threads::shared;
...
my $Bresults:shared;
async {
    $Bresults = `perl B.pl`;
}->detach;

my $Cresults = `perl C.pl`;

## Do something with the results;