#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => '_729090', CLEAN_AFTER_BUILD => 0;

#include <stdlib.h>
#include <string.h>
#include <stdio.h>

SV* thing() {
    int i, j;

    for (i = 20; ; i += 20) {
        for (j = 1; j < 20; j++) {
            if (i % j)
                break;
        }
        if (j == 20) {
            return newSViv( i );
            break;
        }
    }
}

END_C

print time;
print thing();
print time;

__END__
C:\test>729090-IC.pl
1228813945
232792560
1228813946