diff --git a/Changelog b/Changelog
index fbb2291539fe321c5009927a7c9ee4d9adfda079..7e709de4889c53cbad13de45e4753bf93adf11d3 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,8 @@
+Travel::Status::DE::DeutscheBahn 4.02 - Sun Nov 06 2022
+
+    * HAFAS->new: Add "results" and "lookahead" options
+    * Build.PL: Specify File::Slurp test dependency
+
 Travel::Status::DE::DeutscheBahn 4.01 - Sat Oct 29 2022
 
     * Journey: Add "class" accessor
diff --git a/bin/hafas-m b/bin/hafas-m
index 143b93c3825d111f2d41356a15d5be800f3aa3b0..0d8ff29e462289ec63b6237100c7243a55e3d9d7 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use 5.014;
 
-our $VERSION = '4.01';
+our $VERSION = '4.02';
 
 use utf8;
 use DateTime;
@@ -333,7 +333,7 @@ B<hafas-m> [B<-d> I<date>] [B<-t> I<time>] [B<-m> I<motlist>]
 
 =head1 VERSION
 
-version 4.01
+version 4.02
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm
index 0587bb117b9d74e6893fe66b088c443935e0ced7..b2a410f5d44c510e16343a96e431718d496a1170 100644
--- a/lib/Travel/Status/DE/DeutscheBahn.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn.pm
@@ -6,7 +6,7 @@ use 5.014;
 
 use parent 'Travel::Status::DE::HAFAS';
 
-our $VERSION = '4.01';
+our $VERSION = '4.02';
 
 sub new {
 	my ( $class, %opt ) = @_;
@@ -49,7 +49,7 @@ monitor operated by Deutsche Bahn
 
 =head1 VERSION
 
-version 4.01
+version 4.02
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index 3e2db842b4e131ac366393f03f6373b7c8e2f2a0..ca2968bffdea5e909c6379f46b30659e69689eb1 100644
--- a/lib/Travel/Status/DE/HAFAS.pm
+++ b/lib/Travel/Status/DE/HAFAS.pm
@@ -21,7 +21,7 @@ use Travel::Status::DE::HAFAS::Polyline qw(decode_polyline);
 use Travel::Status::DE::HAFAS::Journey;
 use Travel::Status::DE::HAFAS::StopFinder;
 
-our $VERSION = '4.01';
+our $VERSION = '4.02';
 
 # {{{ Endpoint Definition
 
@@ -739,7 +739,7 @@ monitors
 
 =head1 VERSION
 
-version 4.01
+version 4.02
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm
index d1370394598c76654693c15a393867c9531a7371..d19e0e0d1a2ac306c4647e494148cd906b8c6bb9 100644
--- a/lib/Travel/Status/DE/HAFAS/Journey.pm
+++ b/lib/Travel/Status/DE/HAFAS/Journey.pm
@@ -10,7 +10,7 @@ no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
 use parent 'Class::Accessor';
 
-our $VERSION = '4.01';
+our $VERSION = '4.02';
 
 Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(
 	qw(datetime sched_datetime rt_datetime
@@ -350,7 +350,7 @@ journey received by Travel::Status::DE::HAFAS
 
 =head1 VERSION
 
-version 4.01
+version 4.02
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Message.pm b/lib/Travel/Status/DE/HAFAS/Message.pm
index 62a317f3bd64f7ae9e6973ddcc07e5bd2fdc4ef7..236ef06f454e8bdb25dbb54fd6f4f71f0119e1be 100644
--- a/lib/Travel/Status/DE/HAFAS/Message.pm
+++ b/lib/Travel/Status/DE/HAFAS/Message.pm
@@ -6,7 +6,7 @@ use 5.014;
 
 use parent 'Class::Accessor';
 
-our $VERSION = '4.01';
+our $VERSION = '4.02';
 
 Travel::Status::DE::HAFAS::Message->mk_ro_accessors(
 	qw(short text code prio is_him ref_count));
@@ -45,7 +45,7 @@ Travel::Status::DE::HAFAS::Message - An arrival/departure-related message.
 
 =head1 VERSION
 
-version 4.01
+version 4.02
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Polyline.pm b/lib/Travel/Status/DE/HAFAS/Polyline.pm
index 8a773f9da903e5cfd343ec83060da3b2784c517e..d286730d7f69acb629c06384dd70278e66d98fb5 100644
--- a/lib/Travel/Status/DE/HAFAS/Polyline.pm
+++ b/lib/Travel/Status/DE/HAFAS/Polyline.pm
@@ -16,7 +16,7 @@ use 5.014;
 use parent 'Exporter';
 our @EXPORT_OK = qw(decode_polyline);
 
-our $VERSION = '4.01';
+our $VERSION = '4.02';
 
 # Translated this php script
 # <http://unitstep.net/blog/2008/08/02/decoding-google-maps-encoded-polylines-using-php/>
diff --git a/lib/Travel/Status/DE/HAFAS/StopFinder.pm b/lib/Travel/Status/DE/HAFAS/StopFinder.pm
index bbab40730440dec9de225e2a527f976ce6bb7f51..bf9258c03d96aaa2b6e2fe8b96ece8ab9a082cd4 100644
--- a/lib/Travel/Status/DE/HAFAS/StopFinder.pm
+++ b/lib/Travel/Status/DE/HAFAS/StopFinder.pm
@@ -12,7 +12,7 @@ use Encode qw(decode);
 use JSON;
 use LWP::UserAgent;
 
-our $VERSION = '4.01';
+our $VERSION = '4.02';
 
 sub new {
 	my ( $obj, %conf ) = @_;
@@ -123,7 +123,7 @@ finder services
 
 =head1 VERSION
 
-version 4.01
+version 4.02
 
 =head1 DESCRIPTION