my $word  = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{Visible} = 1;

my $document = $word->Documents->Open('C:/temp/doctest.doc');

my $table = $word->ActiveDocument->Tables(2);
$table->Range->Copy;

... pasted into excel...