Select Code to Download

open(MYFILE, "-|", "/bin/zcat", $myfile) || die("ERROR: Cannot open $m
+yfile for read: $!\n");

my $fh;
if ($myfile =~ /\.gz$/)
...
    open($fh, "-|", "/bin/zcat", $myfile) || die("ERROR: Cannot open $
+myfile for read: $!\n");
}
...