use strict;
use warnings;

print test();

sub test {
    local $x;
    $x = 17;
}

##</code><code>##

Global symbol "$x" requires explicit package name at C:\WINNT\Profiles\Ovid\Desktop\test.pl line 7