use strict;
use warnings;
use autodie;

use PerlIO::via::gzip;

my $filename = 'example.txt.gz';

open my $fh, "<:via(gzip)", $filename;
while ( <$fh> ) {
    print $. . $_;
}