Trivial Utilities

`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;