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