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