Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

POETRY!!!

by jdube (Initiate)
on Dec 30, 1999 at 04:51 UTC ( #1542=perlcraft: print w/replies, xml ) Need Help??

   1: #!/usr/bin/perl
   2: 
   3: #A Perl poem by the masked JAPH
   4: 
   5: #Tux vs. Daemon
   6: 
   7: BATTLE:
   8: 
   9:      $tux chop($daemon);
  10:      die $daemon;
  11: $daemon dump($tux, $garbage);
  12:      $tux eval($daemon) && $daemon study($tux);
  13: $daemon tell($tux) #You will fall before me.
  14:      $tux warn($daemon) #Back off, man.
  15: $daemon chomp $tux;
  16:      $tux kill $daemon;
  17: $daemon die, bless(ed by-God), $daemon connect $fist, $tux;
  18:      $tux close(garage-door on $daemon);
  19:      $tux $feels alarm(because-daemon-gets-up);
  20: $daemon bind($tux, railway-tie);
  21: $daemon exec(ute) $tux;
  22:      but $tux(is-immortal) && so-is-daemon;
  23: so-battle-rages-forever;
  24: $withoutEndAndNoOneIsHappy;
  25: 
  26: __END__

Replies are listed 'Best First'.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlcraft [id://1542]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (4)
As of 2019-10-17 02:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?