#!/usr/bin/perl -w

use strict;

sub foobar {
        print "Here I am!\n";
}

my $var = 'bar';

no strict "refs";

&{'foo'.$var};