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

$Word->Documents->Open("C:\\temp\\m.rtf");

$Word->ActiveDocument->PrintOut
({
        Range   => wdPrintRangeOfPages,
        Item    => wdPrintDocumentContent, 
        Pages   => "1-2",
});

$Word->Quit(0);

##</code><code>##

    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="1-2", PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        False, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0