#!/usr/bin/perl

use strict;
use warnings;
use CGI qw/:standard center/;

my $date = localtime;

print header.start_html(-bgcolor=>'#c0e0f9').br.
center(
  h1('Home').
  h3($date).
  img({src=>'root_partition.cgi'    }).br.br.br.
  img({src=>'var_partition.cgi'     }).br.br.br.
  img({src=>'stacked_Bar_graph.cgi' }).br.br.br.
  img({src=>'topsenders_hbar.cgi'   }).br.br.br.
  img({src=>'toprecipients_hbar.cgi'}).br.br.br
).end_html;


##</code><code>##


#!/usr/bin/perl

use strict;
use warnings;
use CGI ':standard';
use Sys::Load qw/getload uptime/;

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

print header.start_html(-bgcolor=>'#c0e0f9').

table({-style=>'width:20%'},caption('Load Average'),

Tr(
th({-bgcolor=>'#FFDD00',-height=>'25'},'1 Minute'  ).
th({-bgcolor=>'#FFDD00',-height=>'25'},'5 Minutes' ).
th({-bgcolor=>'#FFDD00',-height=>'25'},'15 Minutes')
),

Tr({-style=>'font-family:veranda',-bgcolor=>'#FFFFFF'},
td($one_m),
td($five_m),
td($fifteen_m)
)

).end_html;