Select Code to Download

{ 
    $x = 1;
...
        $x = 2;
    }
}

{ 
    my $x = 1;
...
        my $x = 2;
    }
}

{ 
    $x = 1;
...
        my $x = 2;
    }
}

{ 
    my $x = 1;
...
        my $x = 2;
    }
}

{ 
    my $x = 1;
...
        $x = 2;
    }
}

{ 
    my $x = 1;
...
        $x = 2;
    }
}

{ 
    my $x = 1;
...
        my $x = 2;
    }
}

{ 
    my $x = 1;
...
        my $x = 2;
    }
}

sub foo { 
    if (1) {
...
    }
    print $x;
}

sub foo { 
    if (1) {
...
    }
    print $x;     # undeclared
}

sub add { 
    $x = 0;
...
    }
    print $x;
}

sub add { 
    my $x = 0;
...
    }
    print $x;         # prints 0
}

use automine
# our $var;
...
    $var = shift; # not 'my $var' if explicit 'our $var' exists 
    ...
}