$Word->Selection->{Style} = wdStyleHeading1;
$Word->Selection->TypeText ({ Text => "The Title"});