An oldie, after a USENET CFV

[addinall]

#!/usr/bin/perl
#
# after_the_vote.pl
#
# written for the unsuspecting staff, her her her her her...
# commisioned by the men in the black heliochopjects
# Mark Addinall
#


require ANCIENT_STRINE ;    # dopey pricks couldn't even
                # speak proper Wirrayjuurray,
                # gindhaay, gwaangi barra-barra
                # buugas.
ITS: time ;

sleep ;
sleep ;
sleep ;

tell name ;

my @brain = ( is, coded, like, this ) ;
my @mind = ( is, out ,of , control ) ;

open( your, eyes ) ;

while ( i, am, awake ) {
 I: print "Reams about that Mark    \n" ;
 BETTER: warn "me about the gang of Che  \n" ;
 
  BETTER ;
  BETTER ;

 THEY: print "Bad things about me they  \n" ;
  do{ always } ;

 PLEASE: print "I will, I want to be the boss" \n" ;

  PLEASE;
  PLEASE;
  PLEASE;

 sub standard {  unless $I_improve ;
   ( 0 ) wait ;
   ( 0 ) wait ;
   values %I_have_none ;
   study $hurts ;
      split ;
       } $and_run ;

 sub human { unless $I_get_better ;
   do { not warn "gawy" } ;
   hex gawy ;
   sleep gawy ;
   chop gawy ;
   kill gawy ;
   die gawy ;

   do { not warn "wisa" } ;
   hex wisa ;
   sleep wisa ;
   chop wisa ;
   kill wisa ;
   die wisa ;

   do { not warn "noddy" } ;
   hex noddy ;
   sleep noddy ;
   chop noddy ;
   kill noddy ;
   die noddy ;

   kill each %STANDING ;

   reset 'GUN' ;

        } cos $too_late ;

 close( your, eyes ) ; 
 sleep ;
 sleep ;
 sleep ;
}

do { not sin } ;
do { not sin } ;

do { not wait } ;

seek your, ending,,

open ( your, eyes ) ;

crypt( $close, $doors ) ;

die ;
 pop ;
        die again ;
    pop ; pop ;
  die again ;
 pop ; pop ; 
pop ;

CLICK:
CLICK;
CLICK;


# Well that should do it
# gotta get the SCCP cleared by great unka Tomato
# then it's into the transmitter tower ;-)
# EOF ( and the end of that pesky bunch of androids )
# [e-mail]

[perldeveloper]

Now that's more like it. You know, I think they should let people post only Perl code in here.