use File::chdir;
{
   local $CWD = "/path/to/script/B";
   system("B");
}