#!/usr/bin/perl
#

$load = `uptime`;
chomp($load);

$load =~ /^.*averages: (\d+\.\d{2}), (\d+\.\d{2}), (\d+\.\d{2})/;

$l1 = int($1 * 100);
$l5 = int($2 * 100);
$l10 = int($3 * 100);

print "$l1\n";
print "$l5\n";


# uptime
$uptime = `uptime`;
$uptime =~ /up (.*?),/;
print "$1\n";

# os, os release, machine name

$os = `uname -s`;
chomp $os;
$osrel = `uname -r`;
chomp $osrel;
$name = `uname -n`;
chomp $name;

print "$name running $os $osrel\n";