#!/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);

##</code><code>##

./dumpuptime.pl 
            uptime:     21 days,   8:02     
Use of uninitialized value in printf at ./dumpuptime.pl line 14.
             users:                         
           load(1):     1                   
           load(5):     0.04                
          load(15):     0.03                
            string:      20:39pm  up 21 days,   8:02,  1 users,  load average:  0.04, 0.03, 0.04