#! perl -slw
use strict;
use Time::HiRes qw[ time ];

print $Time::HiRes::VERSION;

my( $t, $t2 ) = time;
$t2 = time - $t  and $t += $t2 and print $t for 1 .. 10;