require Carp; $SIG{__WARN__} = sub { Carp::cluck(@_) }; #### perl -d ... > $SIG{__WARN__} = sub { $DB::single = 1; } > c