#!/usr/bin/perl 

$uptime = '/usr/ucb/uptime';
($load_average) = ($uptime =~ /average: ([^,]*)/);

$load_limit = 10.0;
$load_high_document = "/the_con.htm";
$load_low_document = "/hi_band.html";

if ($load_average >= $load_limit) {
	print "Location: $load_high_document", "\n\n";
}else {
	print "Location: $load_low_document", "\n\n";
}
exit (0);