eval {
    ...;
    $x = 1;
    1;
} ...;