use warnings;

sub script {
    my $globale_variable;
    sub function {
        $globale_variable;
    }
}