use Win32::OLE; 
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Project'; 
use Win32::OLE::NLS qw( :LOCALE :DATE :TIME ); 
use Data::Dumper; 
use Cwd;


my $cwd = getcwd;
my $mpp = $cwd."\/EUCD_SCHED.mpp"; #EUCD_SCHED
  my $app = Win32::OLE->GetObject($mpp)
              or die "Couldn't open project";

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

  my $noOfTask = $app->Tasks->Count();
  
  # my $selectedTask = $app->SelectRow(64); #RowInsert  EditInsert
  if($app->Tasks(70)->{'EditInsert'})
  {
	print "\n>>>> OK <<<<\n";
  }
  else
  {
	print "\n>>>> no OK <<<<\n";
  }