I guess the first step would be that you show us the relevant part of the code you have written, and describe what it should do and how it fails for you.

Hi tried the below,
$filename="c:\\in\\1.doc";>br> my $archive = OpenOffice::OODoc::File->new("$filename");
my $c = ooDocument
(
file => $filename,
member => "content"
);
But iam unable to open the doc file. Willany one help me how to open the doc file through open office in perl.

You don't tell us how you see that you are unable to open the document file.

Please note that OpenOffice::OODoc reads and writes OODoc files without OpenOffice. That may, or may not be what you need. Consider looking at OpenOffice::UNO if you want to automate OpenOffice, like I've already told you.