Perl's zgrep

pgrep.pl

#!/usr/bin/env perl
use strict;
use warnings;
use PerlIO::gzip;

my $pattern = $ARGV[0];
my $file    = $ARGV[1];
open my $z, '<:gzip', $file or die "gunzip failed: $!\n";
while ( <$z> ) {
        print if /$pattern/i;
}
close $z;

Thank you. I was looking for a basic, "How do I quickly open this damn gz file in Perl without too much hassle and googling?" This was it!