#!/usr/bin/perl
#A Perl poem by the masked JAPH
BATTLE:
$tux chop($daemon);
die $daemon;
$daemon dump($tux, $garbage);
$tux eval($daemon) && $daemon study($tux);
$daemon tell($tux) #You will fall before me.
$tux warn($daemon) #Back off, man.
$daemon chomp $tux;
$tux kill $daemon;
$daemon die, bless(ed by-God), $daemon connect $fist, $tux;
$tux close(garage-door on $daemon);
$tux $feels alarm(because-daemon-gets-up);
$daemon bind($tux, railway-tie);
$daemon exec(ute) $tux;
but $tux(is-immortal) && so-is-daemon;
so-battle-rages-forever;
$withoutEndAndNoOneIsHappy;
__END__