@stat = stat(_); # the -f test did a stat on the same file

##</code><code>##

if ($stat[7] > 1000)
{
  $stat[7] = sprintf( "%d KB",  int($stat[7] * .001)  );
}