#durchläuft @ARGV, enthält vermutlich eine Liste von XML Dateien
foreach my $CIN (@ARGV) { 
  print "processing.."; 
  # öffnet die jeweilige XML Datei mit dem filehandle CIN
  open (CIN, "< $CIN") or die "can,t open.."; 
  # filehandle wird duchlaufen solange die while Bedingung erfüllt ist
  while (<CIN>) { 
    # es wird nach einem XML tag gefiltert
    if (/<tradeItemUnitDescriptor>(.*)<\/tradeItemUnitDescriptor>/) { 
      #der Inhalt des XML tags wird der Variable übergeben
      my $tIUD = $1; 
      my $WhatIsIt = "..."; 
      #gibt dein Namen der XML Datei aus
      print ($CIN); 
      #übergibt entsprechende Parameter einer print Funktion
      print_GLN ($WhatIsIt, $tIUD); 
    }
  }
}