my $pid = open(DUMP, "top|") || die $!; # or 'prstat' will work

while ( <DUMP> ) {
    chomp;
    print "$_\n";
}

kill 9, $pid;