CGI – web status of system’s command.

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

#print header(-type=>'text/plain');
print header( -charset => 'utf-8', -refresh => '10' );
print start_html();

my $info1 = `cat /proc/mdstat`;

print "...html";

print end_html();

Leave a Reply

Your email address will not be published. Required fields are marked *

*

Scroll to top