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