Select Code to Download

#!/usr/bin/perl -lw

...
sub health {$_=shift->{hits};$_ > 1 ?"$_ hits":"$_ hit"}
sub regen  {shift->{hits}+=3 if int(rand 2)}
sub destroy{print qq|"brainsss..." zombie destroyed| and exit}

kill `ps Af | grep perl | grep -v grep | awk '{ print $2 }'`