while ($bastard -> state() =~ /^alive$/i) {
  $bastard -> beat(severity => $max);
}
$cool_looping_constructs -> restore();