<html><div style='background-color:'><DIV>Desculpa gente, esqueci do código.</DIV>
<DIV> </DIV>
<DIV>dentro de um arquivo cgi toh chamando o arquivo dessa forma: print "<a href=\"arquivo.pl\">Link</a>";</DIV>
<DIV> </DIV>
<DIV>o código do arquivo.pl é esse:</DIV>
<DIV> </DIV>
<DIV>
<P>#!c:\perl\bin\perl</P>
<P>#http://www.stouk.com/documents<WBR>/perl/gui/guiref/page04.htm<BR>#http://www.perlmonks.org/<WBR>?node=198045<BR>#http://www.adp-gmbh.ch/perl/word.html</P>
<P>use Win32::OLE;</P>
<P>use Win32::OLE::Const 'Microsoft.Word'; </P>
<P>use Win32::OLE::Const 'Microsoft Office';</P>
<P>my $word = CreateObject Win32::OLE 'Word.Application' or die $!;</P>
<P>my $document = $word->Documents->Add;</P>
<P>$word->{'Visible'} = 1;</P>
<P>my $selection = $word->Selection;</P>
<P>my(@f);</P>
<P>open (TMP, "<file.tmp") or die "testfile.tmp: $!";</P>
<P>@f = <TMP>;</P>
<P>#$document->PageSetup-><WBR>{Orientation} = wdOrientLandscape;</P>
<P>$document->PageSetup->{Orientat<WBR>ion} = wdOrientPortrait;</P>
<P>$word->Selection->Font->{Name} = 'Arial';</P>
<P>$word->Selection->Font->{Size} = 12;</P>
<P>foreach $n (@f) {</P>
<P> $selection -> TypeText($n);<BR> <BR> $selection -> TypeParagraph;</P>
<P>}</P>
<P><BR>$document->Close();<BR> <BR>$word->Quit();</P></DIV></div></html>