my @uptime = split " ", qx(/usr/bin/uptime);
my %uptime;
@uptime{'Time', 'Uptime', 'Current Users', 'CPU Load'}
    = ( $uptime[0],
        join ' ', @uptime[1..4],  
        join ' ', @uptime[5..6],  
        join ' ', @uptime[7..$#uptime]
       );