use warnings;
use strict;

{
    no strict 'vars';
    $x = 10; # look Ma, no 'my'!
    print "$x\n";
}