#!/usr/bin/perl -w

use strict;
use Time::HiRes qw (alarm time);

$SIG{ALRM} = sub { printf "%16.5f\n",time; alarm(0.5); };
alarm(0.5);

while(1)
{
  select(undef,undef,undef,1);
}