Help for this page
my $z = new IO::Uncompress::Gunzip $ARGV[0]; while( <$z> ){ chomp; print "$.:$_\n"; }