Select Code to Download

sub c_out {
 my $_=shift;
...
  $c_out_store=$_;
 }
}

 while($usedouble || !eof($file_in)) {
  if($usedouble) {
...
  }
  # etc
 }