# cat.pl
use strict;
use warnings;

sub walk {}
sub run {}

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

##</code><code>##

$ perl cat.pl
Can't use string ("run") as a subroutine ref while "strict refs" in use at cat.pl line 9.