use strict;
use warnings;
use Win32::API;

my $f= new Win32::API ('Kernel32.dll', 'GetSystemTimeAsFileTime', ['P'], 'V');
my $buffer= 'x'x8;  #8 byte value

for (1..100000000) {
   $f->Call ($buffer);
   }
# printf "%vx\n", $buffer;