#!/usr/bin/perl

print "Content-type: text/html\n\n \n<h1>Current status of RAID array</h1>\n<br>\n<pre>\n";

open FILEN, "</proc/mdstat";
  while (<FILEN>) { print $_; }
close (FILEN);

print "</PRE>";