my $bootcmd = scalar @ARGV ? "'".join("' '", @ARGV)."'" : "$FindBin::Bin/boot";
$SIG{INT} = sub { kill_boot(); exit; };
+ $SIG{HUP} = sub { kill_boot(); exit; };
+ $SIG{ALRM} = sub { kill_boot(); exit; };
+ $SIG{TERM} = sub { kill_boot(); exit; };
+ $SIG{QUIT} = sub { kill_boot(); exit; };
pipe($boot, $wh) || die("pipe: $!");
my $pid = fork() // die("fork: $!");