*gettime = do { eval "use Time::HiRes"; $@ } ? sub { time } : sub { Time::HiRes::time() };
print gettime() . "\n";