simple send signal example using nativecall

Author: stmuk

categories/cookbook/16processes/16-14-send-signal.pl

@@ -0,0 +1,21 @@
+use v6;
+
+=begin pod
+
+=TITLE send a signal
+
+You want to send a signal to a process on a UNIX-like OS
+
+=AUTHOR stmuk
+
+=end pod
+
+use NativeCall;
+
+sub kill(Int,Int) returns Int is native { ... }
+
+signal(SIGHUP).tap( {say "caught HUP"});
+
+kill($*PID, Signal::SIGHUP);
+
+sleep 2;