open P,"/proc/stat";undef $/;$c=<P>;($t)=($c =~ /btime\s(\d+)/);print localtime($t)."\n";