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

SV *rdtsc() {
    return newSVuv( (UV)__rdtsc() );
}

END_C

my( $last, $this ) = ( 0, 0 );
print( $this = rdtsc(), ' ', $this - $last ), $last = $this  for 1 .. 20;

__END__
C:\test>rdtsc
95054001389914 95054001389914
95054002276396 886482
95054003052862 776466
95054004698944 1646082
95054006658865 1959921
95054008588537 1929672
95054010420586 1832049
95054012410180 1989594
95054014268572 1858392
95054016253981 1985409
95054018070946 1816965
95054050803874 32732928
95054051382070 578196
95054053061884 1679814
95054054901610 1839726
95054056870252 1968642
95054058682825 1812573
95054060659909 1977084
95054062399501 1739592
95054064304702 1905201