Select Code to Download

  use Win32::OLE;
  use Win32::OLE::Variant;
  use strict;
...
              or die "Couldn't open project";

  my $project = $app->{Projects}->Item(1);

  my $current_date = Variant(VT_DATE,
                             $project->{CurrentDate});

  my @overdue;

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

  my %overdue;

  foreach my $task ( @overdue ) {
...
          push @{$overdue{$resource->{EMailAddress}}}, $task;
      }
  }

  use Mail::Mailer;

  foreach my $email ( keys %overdue ) {
...
      print "\nPlease send a status update to your Manager.\n";
      $mailer->close();
  }