use Win32::OLE;

$App = Win32::OLE->new('Word.Application');
$App->{Visible} = 1;

$document=$App->Documents->Add;

open (FILE, "text.txt");
@data=<FILE>;

foreach (@data) {
 $App->Selection->TypeText($_);
}

$document->{Saved}=0;
$App->Quit;
$document=0;
$App=0;