use Time::HiRes qw(time);
print time."\n";
print time."\n";
print time."\n";