#!/usr/bin/perl --
print "Content-type: text/html\n\n";
my ($Map,$start,$end);
use LWP::Simple;
$data = get("http://www.map24.ch/map24/routing.php3?lang=de&mid=LINK2&lid=f6424470&maptype=java&rtype=fast&sstreet=&szip=4150&scity=&scountry=ch&sdescription=Startbeschreibung&dstreet=Bergstrasse&dzip=4114&dcity=Hofstetten&dcountry=ch&ddescription=Zielbeschreibung");
die "Couldn't get it! $!" unless defined $data;
$start = '