Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

An oldie, after a USENET CFV

by addinall (Novice)
on Jul 15, 2004 at 23:38 UTC ( #374850=poem: print w/replies, xml ) Need Help??

#!/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

Replies are listed 'Best First'.
Re: An oldie, after a USENET CFV
by perldeveloper (Scribe) on Jul 16, 2004 at 13:25 UTC
    Now that's more like it. You know, I think they should let people post only Perl code in here.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2023-06-08 16:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How often do you go to conferences?






    Results (34 votes). Check out past polls.

    Notices?