#*****************************************************************#
  # ROBOTER:                                                        #
  # Mit "Mechanize" Formulare ausfüllen und Links verfolgen         #
  #*****************************************************************#
  
  # Modul LWP einbinden
  use WWW::Mechanize;

  # Suchbegriff #
  $SUCHE = "Nudeln";


  # Objekt erzeugen
  $mech = WWW::Mechanize->new();

  # hole Formularseite
  $mech->get("http://www.rezept*schmiede.de/");

  # Formular ausfüllen und Ergebnisseite holen
  $mech->form(1);
  $mech->field("suche", $SUCHE);
  $mech->click();

  # Alle Link mit Suchbegriff anzeigen
  # @links = $mech->find_all_links( text_regex => qr/$SUCHE/i );
  # for(my $i=0; $i<@links; $i++ ) {
  #   my ( $url, $title ) = @{$links[$i]};
  #   print $url." -> ".$title."\n";
  # }

  # 3. Link mit Suchbegriff im Text 
  $mech->follow_link(text_regex => qr/$SUCHE/i, n => 3);
  $url = $mech->uri;