To capture Http Headers

Hi ALL I have a sample cgi-script #!/usr/bin/perl use CGI; $cgi = new CGI; for $key ( $cgi->param() ) {

       $input{$key} = $cgi->param($key);

} print qq{Content-type: text/html <html><head><script type="text/javascript" src="/domain.js"></script></head><body> }; print qq{<script type="text/javascript">addHeader()</script>}; print qq{<table border="2" width="60%" align="center" cellspacing="1" cellpadding="2">}; print qq{<tr><th>Key</th><th>Value</th>}; foreach $key (sort (keys %ENV)) {

       print "<tr><td>$key</td>", "<td>$ENV{$key}</td>", "</tr>";

} print qq{</table>}; print qq{<script type="text/javascript">addFooter()</script>}; print qq{</body></html>}; Can any one please help me in converting this to a php script Which would be of great help Thanks in Advance Kaushal