use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $Document = Win32::OLE->GetObject( "c:\\hello.doc" );
$Document->ActiveWindow->Selection->EndKey({unit=>wdStory});
$Document->ActiveWindow->Selection->TypeParagraph();
$Document->ActiveWindow->Selection->TypeParagraph();
$Document->ActiveWindow->Selection->TypeText("Salam Sayang, Nita");
$Document->SaveAs("c:\\hello.doc");
$Document->Close();