MODULE = TEST        PACKAGE = main

long
mktime (sec, min, hr, day, mon, yr)
        int     sec
        int     min
        int     hr
        int     day
        int     mon
        int     yr
    PROTOTYPE: $$$$$$
    CODE:
        struct tm       ltm;

        ltm.tm_sec      = sec;
        ltm.tm_min      = min;
        ltm.tm_hour     = hr;
        ltm.tm_mday     = day;
        ltm.tm_mon      = mon;
        ltm.tm_year     = yr;
        ltm.tm_wday     = 0;
        ltm.tm_yday     = 0;
        ltm.tm_isdst    = 0;

        RETVAL = mktime (&ltm);
    OUTPUT:
        RETVAL