Select Code to Download

#!/usr/bin/perl -w

...
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);

./dumpuptime.pl 
            uptime:     21 days,   8:02     
...
           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