# cat.pl
use strict;
use warnings;

sub walk {}
sub run {}

my $walkable = defined &{ 'walk' };
undef &{ 'walk' };
&{ 'run' };