Select Code to Download

#!/usr/bin/perl

...

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