# Zeichnen der Linien
print "osm_id4node: ".$osm_id4node."\n";
$osm_id4way--;
for (my $i = -1; $i <= $osm_id4node; -2){ 
  print "i: ".$i."\n";
  print $fh "  <way id=\"".$osm_id4way."\" action='modify' visible='true'>\n";
  print $fh "    <nd ref=\"".$i."\" />\n";
  print $fh "    <nd ref=\"".($i - 1)."\" />\n";
  print $fh "  </way>\n";
}