$str="meth";
$obj->$str();

##</code><code>##

  DB<104> sub meth { 
           $self=shift @_; 
           print "calling ",$self->{name},"->meth(@_)";
           }

  DB<106> $obj = bless {name=>"obj"}, main;
 => bless({ name => "obj" }, "main")

  DB<107> $str="meth"
 => "meth"

  DB<108> $obj->$str("bla")
calling obj->meth(bla)