#!/usr/bin/perl -l

use autodie;
use common::sense;

sub walk {
    use strict qw/refs/;
    use warnings FATAL => 'syntax';
    print "Walk this!";
}

sub run {
    use strict qw/refs/;
    use warnings FATAL => 'syntax';
    print "Run with this!";
}

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