void c_output() {
    PerlIO_printf(PerlIO_stdout(), "###c_output");
}
void c_output_newline() {
    PerlIO_printf(PerlIO_stdout(), "###c_output_newline\n");
}