Check out
B::Xref. It comes with the standard distribution. You invoke it by running this at the command line:
perl -MO=Xref yourscript.pl
for a human readable form, outlined; or
perl -MO=Xref,-r yourscript.pl
for the raw table output.
It's a bit coarse around the edges, but it'll do most of what you want, I think.
Update: In addition, you might be interested in the profiling modules in the Devel::* hierarchy. Check out the series of articles by brian d foy on DDJ's website, like this one, on Devel::Coverage.