diff --git a/Task/Read-entire-file/Perl/read-entire-file-3.pl b/Task/Read-entire-file/Perl/read-entire-file-3.pl
index 225de97e14..1363224b87 100644
--- a/Task/Read-entire-file/Perl/read-entire-file-3.pl
+++ b/Task/Read-entire-file/Perl/read-entire-file-3.pl
@@ -1,2 +1,2 @@
-use File::Slurp;
-my $text = read_file($filename);
+use Path::Tiny;
+my $text = path($filename)->slurp;