open PIPE, "top -b -n 1 |" or die "Cannot open";
my $output = join '', <PIPE>;
close PIPE or die "Running top failed";