my @overdue;

  foreach my $i ( 1 .. $project->{Tasks}->Count() ) {
      my $task = $project->{Tasks}->Item($i);
      my $finish = Variant(VT_DATE, $task->{Finish});
      push @overdue, $task if $finish < $current_date
                           && $task->{PercentComplete} < 100;
  }