#!/usr/local/bin/perl
$0 = "pug";
$kword=shift;
@args=("ps -ef |grep", $kword);
# print "@args\n";
print "Working...........\n";
exec "@args | grep -v grep";