#!/usr/bin/perl

@table=`ps -eo pid,comm,%cpu`;
# print "@tabela";

@tableedited=split(/ +/,"@table");

#print "@tableedited";