my $th = new Thread( sub { $p->run } ); # Line: 88