Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

An oldie, after a USENET CFV

by addinall (Novice)
on Jul 15, 2004 at 23:38 UTC ( [id://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?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2025-06-18 17:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.