PerlIO * debug = PerlIO_open ("debug.txt", "a");
PerlIO_printf(debug, "\nEntry, File: %s\n", szName);