use POSIX qw(CLOCKS_PER_SEC) ;

  my ($realtime, $user, $system, $cuser, $csystem) = POSIX::times() ;