#!/usr/bin/perl

use strict;
use IO::File;
use Time::HiRes qw(gettimeofday tv_interval);

sub ping {
  my $writestring = "x" x 4096;
  my $start = [gettimeofday];
  my $fh = IO::File->new_tmpfile();
  $fh->autoflush(1);
  print $fh $writestring;
  $fh->sync();
  print "took ",tv_interval($start),"s\n";
}

for(my $i = 0; $i < 10; $i++) {
  ping();
  sleep(1);
}