a) Use the debugger.

PERLDB_OPTS="NonStop AutoTrace LineInfo=lines frame=1" perl -d script.
+pl
less lines
[download]

b) use warnings and not -w, to turn warnings only on in your modul/script.
c) build some magic around your subs with Hook::LexWrap or a similar module to do something on sub entry or exit.