I m using a perl environment with win32:guitest pkg to test a GUI. All these GUI test functions are made as few subroutines and are available in a pkg. I m using this pkg in each of my testcases which are again perl files. I call this test file with a pipe like "perl -X test.pl | tee transcript". The intention of piping is to capture the log in a file as well as display in std out. One of my subroutines have a win32:guitest function "IsKeyPressed", which will check whether the particular key is pressed and return true or false dependingly. This expects keyboard input. When i run the perl script as mentioned above, this function fails, meaning the key press is not recognised. but if i run without 'tee' command like "perl -X test.pl", it works as expected. Also i ve $| set to '1'. Can anyone help me out.