Select Code to Download

corion@aliens:~/tmp$ cat test.pl
#!perl -w
...
print "Killing child $pid";
kill 9 => $pid;
print "done\n";

corion@aliens:~/tmp$ perl -w test.pl
Spawned child as 26868Doing own work 1
...
Doing own work 9
Doing own work 10
Killing child 26868done