use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Project';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);

print "wake up project\n";
$prj = Win32::OLE->new('MSProject.Application') or die "Oops, cannot start Project: ".Win32::OLE->LastError();
$prj->{Visible} = 1;

print "adding tasks\n";
$project = $prj->{Projects}->Add;
$task1 = $project->{Tasks}->Add;
$task1->{Name} = "Job1";
$task1->{Duration} = 100;
$task2 = $project->{Tasks}->Add;
$task2->{Name} = "Job2";
$task2->{Duration} = 200;
$task3 = $project->{Tasks}->Add;
$task3->{Name} = "Job3";
$task3->{Duration} = 300;
print $project->{Tasks}->Count(), " tasks\n";