while ($foo) {
  die if $bar;
  ...
}

# just kidding :)