UPWORK/ODESK guru: Tips and Tricks for clients

skype: upwork.link , email: info@upwork.link

CGI – web status of system’s command.

without comments

#!/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();

Written by spectre

October 28th, 2013 at 10:16 pm

Posted in Perl,Tips and Tricks

Leave a Reply

*