Select Code to Download

# use strict;
$foo = "a string";
...
    local $foo;
    print qq(foo is now localized and empty "$foo"\n);
}

{   # creates a new lexical scope
    my $foo = "add text here - ";
...
        return $foo;
    }
}   # $foo now only referenced by &add_text