use Bling;

$x = $$; ## Bling Bling as before

{
    my $no_bling = Bling->off();
    $y = $$;   ## no Bling Bling
}

$z = $$;  ## Bling Bling as before