my $test = $main::{subname} // 'undef';
say "subname: $test";

my $subref = \&subname;

$test = $main::{subname} // 'undef';
say "subname: $test";
__END__
subname: *main::subname
subname: *main::subname