{
   my @loads;
   my $i = my $cpuload = 0;
   open(INFIL,"< /proc/stat") || die("Unable To Open /proc/stat\n");