diff --git a/tools/iperl b/tools/iperl
index 35e2acb..b4ab2c9 100755
--- a/tools/iperl
+++ b/tools/iperl
@@ -13,8 +13,7 @@ use Scalar::Util qw();
 
 # NOTE: some Term::ReadLine implementations don't support features that we sort
 # of need. Term::ReadLine::Gnu is recommended.
-use Term::ReadLine qw();
-use Term::ReadLine::Gnu qw();
+#use Term::ReadLine qw();
 
 # globals
 Getopt::Long::Configure('bundling');
@@ -309,6 +308,7 @@ sub run {
 
     # set up readline if necessary
     unless($pipe) {
+        require Term::ReadLine qw();
         $term = Term::ReadLine->new('IPERL');
         my $attribs = $term->Attribs();
         $attribs->{special_prefixes} = '$@%*&';