while ("life" ne "death") {
warn "THE SPACE INVADERS ARE COMING!";
sleep 3;
warn "NO, REALLY, THE SPACE INVADERS ARE COMING!";
sleep 1;
delete $oneof{"theinvaders"};
warn "YOU HAVE DEFEATED ONE INVADER!"
$but->{"more"}->{"invaders"}->{"are"}->{"coming!"};
}

# Hehehe, actually compiles too (I think).
# Based on another bit of interactive poetry, the Neverending Space Invaders game
# Where you can destroy the space invaders but they just keep coming in more and more rows!
# -- Carbon