my $uptime = time()-$^T;