Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

perl for bottoms

by Anonymous Monk
on Jun 02, 2001 at 03:14 UTC ( [id://85118]=poem: print w/replies, xml ) Need Help??

Younger or more sensitive readers may wish to skip this poem.

This poem is rather "dark" and contains explicit "adult" material.

 ## perl for bottoms
 ## chuck hanrahan
 ## foxy@public.lilfox.com
  
    push me, @slaves;
  
    goto $crypt;
    crypt is, dark;
  
    listen softly, gently;
    listen to, MASTER;
  
    rename me, slave;
  
    do not, escape;
    submit;
  
    push (me, forward, down);
  
    warn "punishment" if resist;
    tie %me, @there;
    tie %down, @slaves;
  
    while (defined abs tighten-against-rope) {
       MASTER:
       close my $mouth;
       tell me, orders;
       touch me, body, soul; 
  
       sin;
       formline single, file;
  
       do me;
  
       if (alarm length) { 
          warn "behave";
          do not, exit; 
          do me, harder; 
       }
  
       recv your, $length, deeply, sir;
       seek pleasure, in, you;
       redo until ( sqrt ( "hot come into me" ));
  
       last MASTER;
    }
  
    join me;
  
    sleep; 
    sleep;
   
    accept destiny, slave;

Edit by tye

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://85118]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2024-04-23 22:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found