#!/usr/bin/perl
use warnings;
use strict;

open (PIPE, "/usr/local/bin/top -b -d2 |") or die "Cannot open top: $!";
while (<PIPE>) {
   if (/^CPU/) {
      print;
      last;
   }
}
close(PIPE);
exit(0);