use strict qw(vars subs);
my $name;

{
    my $name = 'red';
    *$name = sub { "<FONT COLOR='$name'>@_</FONT>" };
}

{
    my $name = 'blue';
    *$name = sub { "<FONT COLOR='$name'>@_</FONT>" };
}

$name = '<none>';

print red(), "\n";
print blue(), "\n";
__END__
<FONT COLOR='red'></FONT>
<FONT COLOR='blue'></FONT>

##</code><code>##

 use strict qw(vars subs);

{
    my $name;

    {   my $name = 'red';
        *$name = sub { "<FONT COLOR='$name'>@_</FONT>" }; }
    {   my $name = 'blue';
        *$name = sub { "<FONT COLOR='$name'>@_</FONT>" }; }

    *foo = sub {
        print red($name), "\n";
        print blue($name), "\n";
    };

    $name = 'another wrinkle';
}

foo();
print red('hi mom');

__END__
<FONT COLOR='red'>another wrinkle</FONT>
<FONT COLOR='blue'>another wrinkle</FONT>
<FONT COLOR='red'>hi mom</FONT>