use Time::HiRes qw(time);
print time;