[Persistentperl-users] Question on shuting down perlsistaent perl process

[Spear, R. <ray...@hp...>]

I am trying to figure out how to cause a persitent perl process to
shutdown upon request.

I am executing on HP-UX.

I have the following code:

#!/opt/perl/bin/perperl -w
use PersistentPerl;
my $pp      =3D new PersistentPerl;
if ( $ARGV[0] eq 9 ) {
     print "shuting down\n";
     $pp->shutdown_now();
}

What I see happening is:
(1) First run causes two processes to be spawned.  At parent whose
parent is init and a child.
(2) When a "9" is passed in the "shuting down message is printed and the
child process is terminated.
(3) The parent then spawns another child process.

How do I get both the parent and the child process to terminate?

Ray Spear