use strict;
use warnings;

print test();

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