Sure. I'm writing a little function to run another function on a given set of arguments and time how long it takes. Looks like so:

sub run_and_time(&@) {
    use Time::HiRes;
    my $func = shift;
    my $funcName = [some bit of code to get $func's name]
    my $start_time = [gettimeofday];
    my @retlist = &{$func}(@_);
    print "Time to run $funcName: ", tv_interval($start_time), "\n";
}
[download]

So I need some way to get $funcName. Does that clarify things?