use Devel::TraceSubs; open my $_LOG, ">> $0-Postgres.log"; my $_dbg = Devel::TraceSubs->new( verbose => 0, pre => '', post => '<', level => '', params => 0, logger => sub { my ($package, $filename, $line, $subroutine, $hasargs, $wantarray, $evaltext, $is_require, $hints, $bitmask) = caller(1); return if $_[2] eq '<' or $filename =~ m{Postgres.pm$}; print $_LOG "Called $_[5] in $filename at $line\n"; }, ); $_dbg->trace( 'Postgres::' );