$ perl -e '$die_on_err=shift; 0 or ($die_on_err? die "failed\n" : warn "warning\n")' 1
failed

$ perl -e '$die_on_err=shift; 0 or ($die_on_err? die "failed\n" : warn "warning\n")' 0
warning