Select Code to Download

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