sub die_STDOUT { print STDOUT "@_\n"; exit 1; };