find lib/perl -exec grep __DIE__ {} \; -print