my $parser = XML::LibXML->new;
    my $dom = $parser->parse_file($datei);

    my @start=$dom->findnodes('/page/offer/offerstatus[@resolution="day"]/timerange');

    for my $startnode(@start){

        my $tempstart= $startnode->'pstart'->textContent;
    
            if (($date<$tempstart+86399) && ($date>$tempstart)){

                print "Datum: $date\n";
                print "Startzeit:$tempstart \n";

                my $startzeit = $startnode->'start'->textContent;
                my $endzeit = $startnode->'time'->textContent;

                print "Startzeit richtig:$startzeit\n";
                print "Endzeit richtig: $endzeit\n";
}}