use strict;

my $funcName = 'foo';

no strict 'refs';
&{$funcName}();
use strict 'refs';

sub foo
{
  print "foo\n";
}