�</p>
<p>[perl]use CGI qw(:standard);<br/>
$name = param(&#8216;name&#8217;);<br/>
$nslookup = &quot;/path/to/nslookup&quot;;<br/>
print header;<br/>
if (open($fh, &quot;$nslookup $name|&quot;)) {<br/>
  while (&lt;$fh&gt;) {<br/>
print escapeHTML($_);<br/>
print &quot;&lt;br&gt;\n&quot;;<br/>
}<br/>
close($fh);<br/>
}[/perl]</p>
<p>如果用户输入的参数是：</p>
<p><code data-enlighter-language="shell" class="EnlighterJSRAW">coolshell.cn%20%3B%20/bin/ls%20-l</code></p>
<p>那么，这段perl的程�