Select Code to Download

my $word = Win32::OLE->GetActiveObject('Word.Application')
    || Win32::OLE->new('Word.Application','Quit')
    or die Win32::OLE->LastError();

my $doc = $word->Documents->Open('C:\\Perl\\home\\001f.doc');

my $doc = $word->Documents->Open( { FileName => 'C:\\Perl\\home\\001f.
+doc', ReadOnly =>1 }) or die Win32::OLE->LastError();
SaveAs({FileName => 'exampletext.doc', FileFormat =>  wdFormatDocument
+,})
$doc->Close( { SaveChanges => $wdc->{wdDoNotSaveChanges} } );

Class Selection
    Member of Word
...
Property Characters As Characters
    read-only
    Member of Word.Selection

#!/usr/bin/perl
use Cwd 'abs_path';
...
Words:1
Characters:1
Paragraphs: 1

#!/usr/bin/perl -w

...
$Word->ActiveDocument->Close ;
$Word->exit;
$Word->Quit;