$start = time();
chdir "c:/temp";
while (<*>) {
  $num++;
  last if ($num==1); # makes no difference in speed
}
$stop = time();
$elapsed=$stop-$start;
print "elapsed = $elapsed seconds\n";