pgrep

• Were you wondering if I ever use Getopt::?

• Sometimes I am not a complete freak!

 use Getopt::Std;
 my $opts = 'ulhIive:F:q';
 getopts($opts) or usage();
 my $pat = defined($opt_e) ? $opt_e : @ARGV ? shift : usage();
 my $qr = $opt_i ? qr/$pat/i : qr/$pat/;

 $| = 1 if $opt_u;