my $var = \&funcname;
&$var;

sub funcname { print "funcname\n" }