Select Code to Download

    use Sys::uptime;
    my $uptime;
...

    printf "Load average over the last minute: %s\n",
        $uptime->load('one');

    package Sys::uptime;
    use Class::Struct;
    use Carp;
    use strict;

    my $WAIT_CACHE = 5;

    struct 'Uptime' => [
        'uptime'    => '$',
...
        'load'      => '%',
        'as_string' => '$',
    ];

    sub TIESCALAR {
        my $class = shift;
...
        bless $self, $class;
        $self;
    }

    printf "Load average over the last minute: %s\n",
        $uptime->load('one');

    sub FETCH {
        my $self = shift;
...
        }
        return $self->{up};
    }

    sub get_uptime {
        local $_ = `uptime`;
...
            croak "What was that? Bad uptime.";
        }
    }

    package Sys::uptime;
    use Class::Struct;
...
    }

    1;

    use Sys::uptime;

...

        sleep 3;
    }