#!/usr/bin/perl use strict; use warnings; use CGI ':standard'; my $date = localtime(); print "Content-type: text/html\n\n"; print ""; print qq!

Home

$date

!; print ""; ##

##


#!/usr/bin/perl
use strict;
use warnings;
use CGI ':standard';
use Sys::Load qw/getload uptime/;

print "Content-type: text/html\n\n";

print "";

my ($one_m, $five_m, $fifteen_m) = (getload())[0,1,2];

print "
";

print "Load Average \n";
print '';
    print "\n ";
print '1 Minute 5 Minutes 15 Minutes
$one_m $five_m $fifteen_m';

print "";