map_file $mmap, $file, '+<';
if (!defined($mmap)) { print "ERROR!!\n";}
for(my $i=0;$i<10000;++$i) { 
   $mmap = $i; 
   sync($mmap,1);
}
unmap ($mmap);