my $x = 1;
die "Oh dear!\n" while my $foo = $x && 0;
print "ok!\n";
------
Oh dear!