<font color="#a52a2a">&nbsp;3 </font> <font color="#8B008B"><b>my</b></font> <font color="#00688B">@files</font> = <font color="#CD5555">`grep -l repository:  $CGI_BIN/* `</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;4 </font> <font color="#8B008B"><b>print</b></font> <font color="#CD5555"><b>&lt;&lt;EOM</b></font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;5 </font> <font color="#CD5555"><i>Content-Type: text/html</i></font>
<font color="#a52a2a">&nbsp;6 </font>
<font color="#a52a2a">&nbsp;7 </font> <font color="#CD5555"><i>Fossils for this server</i></font>
<font color="#a52a2a">&nbsp;8 </font> <font color="#CD5555"><i>&lt;ul&gt;</i></font>
<font color="#a52a2a">&nbsp;9 </font> <font color="#CD5555"><b>EOM</b></font>
<font color="#a52a2a">&nbsp;1 </font>0
<font color="#a52a2a">&nbsp;1 </font>1 <font color="#8B008B"><b>for</b></font> <font color="#000000">(</font><font color="#00688B">@files</font><font color="#000000">)</font> <font color="#000000">{</font>
<font color="#a52a2a">&nbsp;1 </font>2   <font color="#CD5555">s{.*/}{}</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;1 </font>3   <font color="#8B008B"><b>next</b></font> <font color="#8B008B"><b>if</b></font> <font color="#CD5555">/~$/</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;1 </font>4   <font color="#8B008B"><b>print</b></font> <font color="#CD5555">&quot;&lt;li&gt;&lt;a href=&#39;$_&#39;&gt;$_&lt;/a&gt;&lt;/li&gt;\n&quot;</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;1 </font>5 <font color="#000000">}</font>
<font color="#a52a2a">&nbsp;1 </font>6 <font color="#8B008B"><b>print</b></font> <font color="#CD5555">&quot;&lt;/ul&gt;\n&quot;</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;10 </font>0
<font color="#a52a2a">&nbsp;11 </font>1 <font color="#8B008B"><b>for</b></font> <font color="#000000">(</font><font color="#00688B">@files</font><font color="#000000">)</font> <font color="#000000">{</font>
<font color="#a52a2a">&nbsp;12 </font>2   <font color="#CD5555">s{.*/}{}</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;13 </font>3   <font color="#8B008B"><b>next</b></font> <font color="#8B008B"><b>if</b></font> <font color="#CD5555">/~$/</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;14 </font>4   <font color="#8B008B"><b>print</b></font> <font color="#CD5555">&quot;&lt;li&gt;&lt;a href=&#39;$_&#39;&gt;$_&lt;/a&gt;&lt;/li&gt;\n&quot;</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;15 </font>5 <font color="#000000">}</font>
<font color="#a52a2a">&nbsp;16 </font>6 <font color="#8B008B"><b>print</b></font> <font color="#CD5555">&quot;&lt;/ul&gt;\n&quot;</font><font color="#000000">;</font>
</pre>

<pre>
#!/usr/bin/perl -w
my $CGI_BIN = '/Library/WebServer/CGI-Executables';
my @files = `grep -l repository:  $CGI_BIN/* `;
print &lt;&lt;EOM;