you could use Inline::C. I'm not really a C programmer, but something like this should print the result of that C call.

print currentTimeMillis();

use Inline C => <<'END_OF_C_CODE';
#include <sys/time.h>

long currentTimeMillis() {
        long t;
        struct timeval tv;
        gettimeofday(&tv, 0);
        t = tv.tv_usec;
        return t;
}
END_OF_C_CODE
[download]