package A::B;

sub meth {
  warn "meth $_[0]";
}

my $meth='meth';

A::B->$meth(25); # succeeds...
A::B::$meth(25); # fails...