diff --git a/lib/ReadKeyMini.pm b/lib/ReadKeyMini.pm
index 0590c8cb..184fac4d 100644
--- a/lib/ReadKeyMini.pm
+++ b/lib/ReadKeyMini.pm
@@ -106,8 +106,11 @@ use Data::Dumper;
       $term->setcc( VTIME, 0 );
       $term->setattr( $fd_stdin, TCSANOW );
       unless ( $PerconaTest::DONT_RESTORE_STDIN ) {
-         warn Dumper($fd_stdin);
-         warn Dumper($flags);
+         warn "*STDIN=", Dumper(*STDIN);
+         warn "fd_stdin=", Dumper($fd_stdin);
+         warn "flags=", Dumper($flags);
+         warn "tell=",tell(STDIN), "\n";
+         warn `ls -l /proc/$PID/*`, "\n";
          fcntl(STDIN, F_SETFL, $flags)
                         or warn "can't fcntl F_SETFL: $!";
       }