added which_perl
added %SIG, invoke $SIG{__WARN__} when defined