Select Code to Download

use strict;
use warnings;

while()

while(1)

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

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

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

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

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