foreach my $CIN (@ARGV) { 
  print "processing.."; 
  open (CIN, "< $CIN") or die "can,t open.."; 
  while (<CIN>) { 
    if (/<tradeItemUnitDescriptor>(.*)<\/tradeItemUnitDescriptor>/) { 
      my $tIUD = $1; 
      my $WhatIsIt = "..."; 
      print ($CIN); 
      print_GLN ($WhatIsIt, $tIUD); 
    }