experts,
I'm trying to run this script I got out of O'reilly's LINUX SERVER HACKS
#! /usr/bin/perl -w
use strict;
$|++;
my $host=' /bin/hostname';
chomp $host;
while(1) {open(LOAD,/proc/loadavg) ||die couldn't open /proc/loadavg:
$!\n;
my @load=split(/ /,LOAD);
CLOSE(LOAD);
print \033]0;;
* Gavin [EMAIL PROTECTED] [030727 06:30]:
I'm trying to run this script I got out of O'reilly's LINUX SERVER HACKS
[snip]
I copied it line for line, and when I tried to run it I got the message:
Bareword LOAD not allowed while strict subs in use at ./tl line 11.
Execution of ./tl aborted due
On Sun, 2003-07-27 at 06:08, Jan Wilson wrote:
* Gavin [EMAIL PROTECTED] [030727 06:30]:
I'm trying to run this script I got out of O'reilly's LINUX SERVER HACKS
[snip]
I copied it line for line, and when I tried to run it I got the message:
Bareword LOAD not allowed while strict subs