<html><div style='background-color:'><DIV>Desculpa gente, esqueci do código.</DIV>
<DIV>&nbsp;</DIV>
<DIV>dentro de um arquivo cgi toh chamando o arquivo dessa forma: print "&lt;a href=\"arquivo.pl\"&gt;Link&lt;/a&gt;";</DIV>
<DIV>&nbsp;</DIV>
<DIV>o código do arquivo.pl é esse:</DIV>
<DIV>&nbsp;</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-&gt;Documents-&gt;Add;</P>
<P>$word-&gt;{'Visible'} = 1;</P>
<P>my $selection = $word-&gt;Selection;</P>
<P>my(@f);</P>
<P>open (TMP, "&lt;file.tmp") or die "testfile.tmp: $!";</P>
<P>@f&nbsp; = &lt;TMP&gt;;</P>
<P>#$document-&gt;PageSetup-&gt;<WBR>{Orientation} = wdOrientLandscape;</P>
<P>$document-&gt;PageSetup-&gt;{Orientat<WBR>ion} = wdOrientPortrait;</P>
<P>$word-&gt;Selection-&gt;Font-&gt;{Name} = 'Arial';</P>
<P>$word-&gt;Selection-&gt;Font-&gt;{Size} = 12;</P>
<P>foreach $n (@f) {</P>
<P>&nbsp;&nbsp;&nbsp; $selection -&gt; TypeText($n);<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; $selection -&gt; TypeParagraph;</P>
<P>}</P>
<P><BR>$document-&gt;Close();<BR>&nbsp;<BR>$word-&gt;Quit();</P></DIV></div></html>