#!/usr/bin/perl -w

use strict;
use lib(".");
use Uptime;

$|++;

my $uptime;

tie $uptime, 'Uptime';

printf("%20s%-20s\n", "uptime:\t",   $uptime->uptime);
printf("%20s%-20s\n", "users:\t",    $uptime->users);
printf("%20s%-20s\n", "load(1):\t",  $uptime->load('one'));
printf("%20s%-20s\n", "load(5):\t",  $uptime->load('five'));
printf("%20s%-20s\n", "load(15):\t", $uptime->load('fifteen'));
printf("%20s%-20s\n", "string:\t",   $uptime->as_string);