sub one {
    my $x;

    sub two {
        print $x;
    }
}