use strict;
use warnings;

##</code><code>##

while()

##</code><code>##

while(1)

##</code><code>##

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

##</code><code>##

   <INFIL> =~ /^cpu\s+(\d+)\s+(\d+)\s+(\d+).*/;
   @loads  = ($1, $2, $3);

##</code><code>##

   my @loads = (<$fh> =~ /\d+/g)[0,1,2];

##</code><code>##

    local $_=<$fh>;
    (warn "something wrong!\n"), next
      unless /^cpu\b/;
    my @loads = (/\d+/g)[0..2];

##</code><code>##

   sleep 1;
   seek INFIL, 0, 0;
   <INFIL> =~ /^cpu\s+(\d+)\s+(\d+)\s+(\d+).*/;
   foreach ($1, $2, $3) { $cpuload += $_ - $loads[$i++]; }
   close(INFIL);