perl -e "print join(\"\n\n\",sort(keys(%SIG)));"