a working demo of how to call C code from perl