#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
print header;
print start_html;
my @SAR=qx/sar/;
for (@SAR) { print }
print end_html;