#!/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 )
# mark.addinall@team.telstra.com

[download]

In reply to An oldie, after a USENET CFV by addinall

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.