--- a/check	Sat Jun 05 22:27:17 2010 +0200
+++ b/check	Sat Jan 24 22:51:08 2015 +0100
@@ -6,7 +6,6 @@
 use strict;
 use warnings;
 
-use Perl6::Slurp;
 use File::Temp;
 use File::Basename;
 use Getopt::Long;
@@ -22,6 +21,8 @@
 my $opt_config = undef;
 my $opt_exim   = undef;
 
+sub slurp { local ($/, @ARGV) = (undef, @_); <> };
+
 MAIN: {
 
     GetOptions(