There is a way:

use strict;
use CGI;

sub meth {'p'}

my $cgi = CGI->new;
print $cgi->${\meth()}('foo')."\n";
[download]

but why would you want to do that?

update D'oh! didn't read the question closely enough. This is not what you're looking for.