use strict;
use warnings;
use LWP::Simple;

# Variablendefinition
my $url='';

print("Herunterladen von OSM-Relationen....\n");

# Verzeichnis in welchem ich mich befinden muss 
my $pfad='D:/DATEN/JAN/openstreetmap/Track_Layer/';
# Liste mit den Defintionen für die OSM-Daten
#Liste aus Perl-Aufruf
#my $liste=$ARGV[0];
my $liste='osm-download-realations.txt';

# URL zum Verezeichnis mit den Image-Dateien - endet auf BACKSLASH !!!
my $url4image='http://betaplace.emaitie.de/webapps.relation-analyzer/downloadServlet/gpx/'; 
#Prefix für die Pack-Datei
my $prefix='';

# öffnen der Liste mit den Image-Dateien
open(my $fh, '<', $liste) or die "Fehler bei open $liste ($!)\n"; # < immer den Fehlergrund mit ausgeben

# Auslesen der Dateinamen
while(my $kachelname=<$fh>){
   chomp($kachelname);

   $url=$url4image.$kachelname.$prefix;

   my ($file)=$url=~m|/([^/]+?)$|;

  my $rc=getstore($url, "$pfad$file");

 }
## close($fh);