Why?

my $what = \&what;
local *what = sub {'new what'};

warn $what->();
warn what();

sub what { 'what' }
__END__
what at - line 4.
new what at - line 5.
[download]

perltoot, perlobj, perlboot