# убейсибяапстену

my $dear;
do { $dear->bang ($dear->head, $world->wall) }
until ($dear->is_dead);