say "working...";
($p1 & $p2 & $p3).waitfor;
say "Done";