You could use something like this:

#!/usr/bin/perl -w

# Uses
use strict;
use Win32::OLE;
use Win32::OLE::Const;

# Create MSWord object and load constants
my $MSWord = Win32::OLE->new('Word.Application', 'Quit') or 
    die "Could not load MS Word\n";
my $wd=Win32::OLE::Const->Load($MSWord);

# Open document (full path)
my $doc = $MSWord->Documents->Open('c:\full\path\to\document.doc');

# Ask word to print the contents of a field named "TheFieldIWant"
print $doc->FormFields("TheFieldIWant")->Result,"\n";

# Close document (without save)
$doc->Close({SaveChanges=>$wd->{wdDoNotSaveChanges}});
[download]

/brother t0mas