Dateiname: /usr/local/httpd/htdocs/admin/smbstatus.cgi.
#!/usr/bin/perl -wT
print <<EOF;
Content-type: text/html
<html>
<head>
<title>Samba Status</title>
</head>
<body>
<h1>Samba Status</h1>
<pre>
EOF
$ENV{"PATH"} = "/usr/bin/";
system("/usr/bin/smbstatus -b");
print <<EOF;
</pre>
</body>
</html>
EOF
exit 0;