my $num = 0;
my $status_count = 0;
my $status_goal = 0;

sub actions
{
 my ($dev, $ino, $mode, $nlink, $uid, $gid); 
 (( $dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_));

  $num++;

  $status_goal = $status_count + 2000;  #47