my $var = 'Util::Stuff::aaa1' #### package Util::Stuff::aaa1; sub flag { 10 } ... #### print $"$var" # oogly, I know :-) #### print Util::Stuff::aaa1->flag ...
## package Util::Stuff::aaa1; sub flag { 10 } ... ##
## print $"$var" # oogly, I know :-) ##
## print Util::Stuff::aaa1->flag ...