my $filepipe = "zcat $filename |";
my $bw = File::ReadBackwards->new($filepipe) or die "can't read $filepipe: $!\n";