Select Code to Download

use IO::Zlib;
my $fh = new IO::Zlib;
...
  print 
}
$fh->close

chomp @cdr_list;
foreach my $tarzip (@cdr_list) {
...
    print $tar->get_content($file)
  }
}