Boa noite a todos,<br><br>Como faço para que o script abaixo liste o conteudo de um determinado diretorio?<br><br><br>#!/usr/bin/perl<br>#read(STDIN, $Dados, $ENV{&#39;CONTENT_LENGTH&#39;});<br>print &quot;Content-type: text/html\n\n&quot;;<br>

print &quot;&lt;html&gt;&lt;head&gt;&lt;title&gt;Listagem de arquivos&lt;/title&gt;&lt;/head&gt;\n&quot;;<br>print &quot;&lt;body&gt;&lt;h1&gt;Listagem de Arquivos\n&quot;;<br><br>@files = glob(&quot;*.*&quot;);<br>foreach $file(@files){<br>

    print &quot;&lt;table&gt;&lt;td&gt;&lt;a href=&quot;.$file.&quot;&gt;&quot;.$file.&quot;&lt;/a&gt;&lt;/td&gt;&lt;/table&gt;&quot;;<br>}<br>print &quot;&lt;/body&gt;&lt;/html&gt;\n&quot;;<br><br><br><br>