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);