#!/usr/bin/perl
use Time::HiRes qw( gettimeofday tv_interval setitimer getitimer);
use threads;

for ($i = 0; $i < 10; $i++){
    my $thr = threads->new(\&time_thread_test);
}


sub time_thread_test{
  #various tests commented out.  Sorry for the mess!
  #my $t0 = [gettimeofday];
  #setitimer('ITIMER_PROF', 30);  
  #timethis( 1000, sub {  my $count = 0; for ($i = 0; $i <= 10000; $i++){$count++;}});
  my ($user,$system,$cuser,$csystem) = times;
  print "u: $user, s: $system, cu: $cuser, cs: $cystem\n";
  my $count = 0;
  for ($i = 0; $i <= 10000; $i++){$count++;}
  # my $elapsed = tv_interval ( $t0 );
  # my $elapsed = 30 - getitimer('ITIMER_PROF');
  # print "$count: $elapsed\n";
  print "2u: $user, s: $system, cu: $cuser, cs: $cystem\n";
}