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