Select Code to Download

my $pid = system(1, $^X, -e => 'sleep 30 while 1')
    or die("system,1: $!\n");
...
} else {
   print("kill 0: $!\n") ;
}

Process 4912 still exists
kill 0: Invalid argument