#!/usr/bin/perl -w
use strict;
use POSIX;
my ($load);
$load= `uptime | awk '{ print \$11 }' | awk -F',' '{ print \$1 }'`;
$load=$load*100;
print "$load\n0\n";
print `uptime`;
print "Server Load\n";