my $x = 1; die("Oh dear!") while defined(my $foo = $x && 0);