#!/usr/bin/perl

use strict;
use warnings;

my $file = shift @ARGV;

open(INFILE, "|-", "zgrep -c -e / $file ") or die $!;
close INFILE;