($cpu_user, $cpu_nice, $cpu_total, $cpu_idle) = /^cpu\s+(\d+)\ (\d+) (\d+) (\d+)/;

##</code><code>##

sub cpu_stats {
   my @cpustats;

   open STAT_FILE, "/proc/stat" or warn "Couldn't open /proc/stat: $!\n";
   my $line = <STAT_FILE>;

   @cpustats = $line =~ /^cpu\s+(\d+) (\d+) (\d+) (\d+)/;
   close STAT_FILE;

   return(@cpustats);
}