#!/usr/bin/perl

use warnings;
use strict;

use Time::HiRes qw< time >;

sub waitkey { system "bash", "-c", "read -n 1" }

my $last = time;
while(1) {
  waitkey();
  print time - $last;
  $last = time;
}