#!/usr/bin/env perl

use strict;
use warnings;
use Getopt::Long;
use Proc::ProcessTable::ncps;

sub version{
        print "ncps v. 0.0.0\n";
}

sub help{
	print '

-z    Show zombies procs.
-s    Show swapped out procs.

-p <regex>   Search procs using the matching regex.

-u <users>   A string search for users.

-t <time search>   A numeric search for CPU time-c <pctcpu search>   A numeric search for CPU usage percent

-m <pctmem search>   A numeric search for memory usage percent

-w <wait channels>   A string search for wait channels.


';
}

my $args={
		  invert=>0,
		  };

my $ncps=Proc::ProcessTable::ncps->new( $args );
print $ncps->run;
exit 0;