#!/usr/bin/perl
use warnings;
use strict;
use IPC::Open3;

my $pid1 = open3(0, \*READ,\*ERR,"top -d 1 -b");

while(1){
  my @words = split(/\s+/,<READ>);
print "@words\n";
}

waitpid($pid, 1);