programming-examples/perl/Win32/Reading in a Word document by using the Win32-OLE-GetObject routine and then printing the document.pl

#!/usr/bin/perl -w

use Win32::OLE;

$filename = 'wordFile.doc';

$doc = Win32::OLE->GetObject( $filename ) 
    or die "Cannot load file $filename from Word, $!";

# Print document.
$doc->PrintOut();