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