test.pl:
    ----------------------------------------------
    sub say_hello {
        my $name = shift;
        my $sayAlert;
        {
            my $text = 'Hello '.$name;
            $sayAlert = sub { print "$text\n" };
        }    
        my $text = "Not in Perl you don't";
        
        $sayAlert->();
    }
    say_hello('Bob');
    ----------------------------------------------

    > perl test.pl
    Hello Bob