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