#!/usr/local/bin/perl5
 
## perl for bottoms
## chuck hanrahan
## chuck@cisco.com
 
   goto $crypt;
   crypt is, dark;
 
   listen softly, gently;
   listen to, MASTERS;
 
   rename me, slave;
 
   do not, escape;
   submit;
 
   push (me, forward, down);
 
   warn "punishment" if resist;
   tie %me, @there;
 
   while (tied %down) {
      MASTERS;
      close my $mouth;
      tell me, orders;
      touch me, body, soul;
 
      sin;
      formline single, file;
 
      defined abs tighten-against-rope;
      do me;
 
      if (alarm length) {
         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;