Reading in a Word document by using the Win32::OLE::GetObject routine and then printing the document
#!/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();
Related examples in the same category