$ perl -Mstrict -e '
package My::Foo;
sub bar { my $class = shift; print "Calling $class->bar\n"; }
package main;
my $class = "My::Foo";
my $method = "bar";
$class->$method();
'
Calling My::Foo->bar

$