#!/usr/bin/perl

print "Content-type: text/plain","\n\n";

print "Welcome to WWW server!", "\n";

$remote_host = $ENV{'REMOTE_HOST'};

$uptime = '/usr/ucb/uptime';
($load_average) = ($uptime=~/average: ([^,]*)/);
print "The load average on this machine is: ",$load_average, ".", "\n";
print "Happy navigating!", "\n";
exit (0);