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__