#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use LWP::UserAgent;

$url  = 'http://bahn.hafas.de/bin/db.s98/query.exe/dn';

                                     # Formular-Inhalt
@form = ('protocol'      => 'http:', 
         'from'          => 'augsburg hbf',
         'to'            => 'muenchen hbf',
         'via.1'         => '',
         'datesel'       => 'custom',
         'date'          => '01.06.98',
         'time'          => '24:00',
         'timesel'       => 'depart',
         'new_selection' => '',
         'start.x'       => '9',
         'start.y'       => '18');

$ua = LWP::UserAgent->new();         # User-Agent erzeugen

$request = HTTP::Request->new('POST', $url); # Request erzeugen

                                  # Formular-Inhalt deklarieren
$request->content_type('application/x-www-form-urlencoded');

                                     # Querystring aufbauen
while(($key, $value) = splice(@form, 0, 2)) {
    $value =~ s/[^\w-_]/sprintf "%%%02x", ord($&)/ge;
    $querystring .= "&" if $querystring;
    $querystring .= "$key=$value";
}

$request->content($querystring);     # Query in Request stecken

$response = $ua->request($request);  # Netzzugriff ausführen

print $response->content();          # Seiteninhalt extrahieren