#!/usr/bin/perl -wuse Win32::OLE;$filename = 'wordFile.doc';$doc = Win32::OLE->GetObject( $filename ) or die "Cannot load file $filename from Word, $!";# Print document.$doc->PrintOut();