I had this published in TPJ Summer '99 issue. But, in case you don't read it (which you should!) I thought I would share it here too. As with all my Perl Poetry, this will run.
if ("a packet hits a pocket") { On: a; socket(ON, A ,PORT,"") && the bus is interrupted as a very-last-resort && the address of the memory makes your floppy disk, abort; } else { "The socket packet pocket has an"; error: to-report; } if ("your cursor finds a menu item") { "followed by a dash" && "the double clicking icon"; puts: your-items-in-the-trash && your data is corrupted cause the index("doesn't", "hash"); } else { "Your situation is hopeless" && Your system's gonna crash; } if ("the label on the cable") { On-the-table, at-your-house; Says_the; sub network {"is connected to the button on your mouse"}; BUT: Your-packets, want-to; {/tunnel to another protocol/}; thats: repeatedly-rejected; {/by the printer/}; "down the hall" && "YOUR SCREEN is all distorted"; {/by the side effects of Gauss/}; so: "your icons", in-the-window; "are as wavy as a souse"; } else { YOU: "may as well reboot" && "go out with a !"; CAUSE: /Sure as Im a poet/; THIS: suckers-gonna-hang; } print "Seuss as a tech writer - Kevin Meltzer\n"; |
Back to
Perl Poetry