perl -MCGI=header -we'print header('-X_error_code' => 1)'