#!/perl/bin/perl
#
#  coderefs.pl -- Yes you can use strict...
use strict;
use warnings;
use diagnostics;

for (qw(foo bar)) {
        ($main::{$_} or sub { print "No such sub: $_\n" })->();
}
$_ = 'baz';
$main::{$_}(); # works! but,
&{$_}(); # doesn't...

sub foo {
        print "Yes, I'm here.\n";
}

sub baz {
        print "I'm here as well.\n";
}
__END__