my $caller = caller @foo;  # like "scalar @foo"