or download this
#!/usr/bin/perl
...
print "busyworkers:$busyworkers bytesperreq:$bytesperreq bytespersec:$
+bytespersec CPULoad:$cpuload idleworkers:$idleworkers reqpersec:$reqp
+ersec TotalAccess:$total_accesses totalworkers:$totalworkers Total_kb
+ytes:$total_kbytes \n";
exit(0);