#!/usr/bin/perl --

print "Content-type: text/html\n\n";
my ($Map,$start,$end);

use LWP::Simple;
$Map = 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 = '<script language=JavaScript type=text/javascript>';
$end   = '<!-- Route - Links Description //-->';
$data =~ m/$start.*$end/si;

$data = $&;

$start = '<!-- begin titlebar -->';
$end   = '<!--  end  titlebar -->';
$data =~ m/$start.*$end/si;
$Main_data = $`.$';

print $Main_data;