The answer is:

     my $app = Win32::OLE->GetObject($mpp)
              or die "Couldn't open project";

    my $project = $app->Projects(1);
    $app->Tasks->Add("task title", $numberOfRow);
[download]