hey.
this is the cgi-perl script i use for my site...change the url and other headings and it shud work fine..
****************************************************
#!/usr/bin/perl
print "Content-type:text/html\n\n";
@t=`df | grep -v "Filesystem"`;
print <<EndOfHTML;
<html><head><title>Matrix's file system information</title></head>
<body background="
<br>
<table bgcolor="#A0B0A0" cellpadding="3" align="center">
<tr bgcolor="#204D20"><td colspan="6"><h5></h5></td></tr>
<tr bgcolor="">
<td colspan="6" align="center" style="color: #000000">
<h2>Matrix's File system information</h2>
</td>
</tr>
<tr bgcolor="#204D20"><td colspan="6"><h5></h5></td></tr>
<tr colspan="6"></tr>
<tr bgcolor="#204D20">
<td align="center" style="color: #FFFFFF">
<h3>Filesystem</h3>
</td>
<td align="center" style="color: #FFFFFF">
<h3>No. of 1K Blocks</h3>
</td>
<td align="center" style="color: #FFFFFF">
<h3>Used Blocks</h3>
</td>
<td align="center" style="color: #FFFFFF">
<h3>Available Blocks</h3>
</td>
<td align="center" style="color: #FFFFFF">
<h3>% of Usage</h3>
</td>
<td align="center" style="color: #FFFFFF">
<h3>Mount Point</h3>
</td>
</tr>
EndOfHTML
foreach $i (@t)
{
print "<tr bgcolor=\"#A9D79F\">";
@i = split (' ', $i);
for ($x = 0; $x <= $#i; $x++)
{
print "<td align=\"center\"><h4>$i[$x]</h4></td>";
}
print "</tr>";
}
print <<EndOfHTML2;
<tr bgcolor="#204D20"><td colspan="6"><h5></h5></td></tr>
<tr bgcolor="">
<td colspan="6" align="center" style="color: #000080">
<a href="
|| <a href="
</td>
</tr>
<tr bgcolor="#204D20"><td colspan="6"><h5></h5></td></tr>
</table>
</body>
</html>
EndOfHTML2
****************************************************