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>