#!/usr/bin/perl

# no arguments
# log the current load to a file

$file_to_log_to = "/ud/webwork/ww-load-log";
$up= `uptime`;
$up =~ s/^.*users,//;
$now = `date`;
chomp($now);
open(OUTF, ">>$file_to_log_to");
print OUTF "$now $up";
close(OUTF);