#!/usr/bin/perl -w
use strict;
use Benchmark qw(:all :hireswallclock);
BEGIN { require 'sys/syscall.ph' };
my $s;
my $t = timeit(1, sub {
	do {
		$s = syscall(SYS_splice, 0, undef, 1, undef, 4096, 0);
	} while $s;
});
print STDERR "OK: ", timestr($t), "\n";