use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
use Cwd;

#my ($file) = @ARGV;
#my $cwd_path = getcwd();

#$cwd_path=~ s/\//\\/gs;

#my $file_name = "$cwd_path\\$file";

my $file_name = "c:\\entityandsymbol.doc";

my $Word = Win32::OLE->new('Word.Application');

$Word->{'Visible'} = 1;     

my $document = $Word->Documents->Open($file_name) || die("Unable to open document", Win32::OLE->LastError());

my $Selection = $Word->Selection;

$Selection->HomeKey (wdStory);

$Selection->TypeText("This is the inserted text");

$Selection->Collapse (wdCollapseEnd);
$Selection->TypeParagraph;
$Selection->TypeText("This is the inserted text 2");
$Selection->Collapse (wdCollapseEnd);
$Selection->TypeParagraph;
$Word->Documents($file_name)->Save();
$Word->Quit();