{
    my $a = 3;
    do {
        last unless $a == 4;
    } while 1;
}