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__