sub FETCH {
    eval { $x++ }
    $x--;
    eval { die }
    print;
}