#*****************************************************************#
  # Webservice:                                                     #
  # Google Maps API v.2                                             #
  # Geographische Postition einer Adresse abfragen                  #
  #*****************************************************************#
  
  use robotmodul;  

  # aus Datenbank 
  $STRASSE = '...';
  $PLZ = '...';
  $ORT = '...';

  $ADRESSE = uri_escape($STRASSE.', '.$PLZ.' '.$ORT);
  
  $URL = 'maps.google.de/maps?f=q&hl=de&q='.$ADRESSE;

  # Quelltext von googlemaps abrufen 
  # Siehe Roboter::Verbindung   

  $QUELLTEXT = robotmodul->seitehol($URL);    

  # Muster suchen
  $QUELLTEXT =~ /&sll=(\d{1,2}\.\d{3,8}),(\d{1,2}\.\d{3,8})&sspn/;

  $GEOBREITE = $1;
  $GEOLAENGE = $2;



  #*****************************************************************#
  # Webservice:                                                     #
  # Google Maps API v.2                                             #
  # Firmendaten abfragen                                            #
  #*****************************************************************# 

  $ADRESSE = uri_escape($FIRMA).'&near='.$PLZ.'+'.uri_escape($ORT);

  $URL = 'maps.google.de/maps?f=l&hl=de&q='.$ADRESSE;

  # Quelltext von googlemaps abrufen 
  # Siehe Roboter::Verbindung   

  $QUELLTEXT = robotmodul->seitehol($URL);        

  # Muster suchen
  if($QUELLTEXT =~ /mehr Infos &raquo;<\/a><\/nobr><\/span><\/div><div>(.*?)<\/div><div>(.*?)<\/div>/) 
  {
     $STRASSE = $1;
     $TELEFON = $2;
  }