cmd/uptime.pl

   1 #
   2 # do a tradiotional "uptime" clone
   3 #
   4 my $self = shift;
   5
   6 return (1, sprintf("%s $main::mycall uptime: %s", ztime(), difft($main::starttime, ' ')));