#!/usr/local/bin/perl

#   Copyright (C) 1996 Thomas R. Metcalf
#
#   This software is provided "as is" and is subject to change without
#   notice.  No warranty of any kind is made with regard to this software,
#   including, but not limited to, the implied warranties of
#   merchantability and fitness for a particular purpose.  The author shall
#   not be liable for any errors or for direct, indirect, special,
#   incidental or consequential damages in connection with the furnishing,
#   performance, or use of this software:  use it at your own risk.
#
#    This program is free software; you can redistribute it and/or
#    modify it under the terms of the GNU General Public
#    License as published by the Free Software Foundation; either
#    version 2 of the License, or (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
#    General Public License for more details.
#
#    You should have received a copy of the GNU General Public
#    License along with this library; if not, write to the Free
#    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#


$W = "w";  # w command

open(W,$W."|") || die "Can't access $W command";

while (<W>) {
   if (/load\s+average\:\s*(\d+\.\d*)\s*,\s*(\d+\.\d*)\s*,\s*(\d+\.\d*)\s*$/i) {;
      $ldavg[0] = $1;
      $ldavg[1] = $2;
      $ldavg[2] = $3;
      last;
   }
}

close W;
print join(" ",@ldavg);
print "\n";

exit;