Use of uninitialized value in pattern match (m//) at /usr/local/share/perl/5.8.8/IO/Prompt.pm line 91.