#!/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 "1 Minute | 5 Minutes | 15 Minutes |
---|---|---|
$one_m | $five_m | $fifteen_m |