$ perl -e 'use diagnostics; $die_on_err=shift; 0 or print "error message" and ($die_on_err? die $! : warn "\n" ) ' 0

error message