script.pl

#!/usr/bin/perl
use warnings;
use strict;
use utf8;

use Geo::OSM::Tiles ':all';
use LWP::Simple;

my $zoom = 15;

my $lat_zürich = 47 + 22/60;
my $lon_zürich =  8 + 33/60;

my $tile_x = lon2tilex($lon_zürich, $zoom);
my $tile_y = lat2tiley($lat_zürich, $zoom);
my $path   = tile2path($tile_x, $tile_y, $zoom);

my $url = "http://tile.openstreetmap.org/$path";

print "url $url\n";
getstore($url, "$zoom-$tile_x-$tile_y.png");