diff --git a/WOPO.COB b/WOPO.COB
index b5a1539..57e9acd 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -389,6 +389,8 @@
                    PERFORM HANDLE-SOURCE
                ELSE IF PARAM(1) IS EQUAL TO "STRESS" THEN
                    PERFORM HANDLE-STRESS
+               ELSE IF PARAM(1) IS EQUAL TO "LICK-ME" THEN
+                   PERFORM HANDLE-LICK-ME
                ELSE IF PARAM(1) IS EQUAL TO "BF-INPUT" THEN
                    PERFORM HANDLE-BF-INPUT
                ELSE IF PARAM(1) IS EQUAL TO "BF-CODE" THEN
@@ -468,6 +470,26 @@
                   WITH POINTER WORK-PTR.
            PERFORM SEND-LINE.
 
+       HANDLE-LICK-ME.
+           MOVE 1 TO WORK-PTR.
+           STRING "PRIVMSG " DELIMITED BY SIZE,
+                  INTO MSG-BODY
+                  WITH POINTER WORK-PTR.
+           IF TARGET IS EQUAL TO WOPO-NICK THEN
+               STRING NICK
+                      INTO MSG-BODY
+                      WITH POINTER WORK-PTR
+           ELSE
+               STRING TARGET
+                      INTO MSG-BODY
+                      WITH POINTER WORK-PTR.
+           STRING " $COLN$$SOH$ACTION VIGOROUSLY LICKS "
+      -           NICK
+      -           ".$SOH$$NUL$"
+                  INTO MSG-BODY
+                  WITH POINTER WORK-PTR.
+           PERFORM SEND-LINE.
+
        HANDLE-LEVEL.
            IF PARAM(2) IS NOT EQUAL TO SPACES THEN
                MOVE PARAM(2) TO USER-NAME