unless ($exp->expect(3,"Do you want to unpack these archive files for processing? [Y/N]:")) {}; print $exp "$response1\r"; #### spawn id(3): list of patterns: #1: -ex `Do you want to unpack these archive files for processing? [Y/N]:' spawn id(3): Does `' match: pattern #1: -ex `Do you want to unpack these archive files for processing? [Y/N]:'? No. Waiting for new data (3 seconds)... TIMEOUT Returning from expect with TIMEOUT or EOF Closing spawn id(3). at /usr/local/share/perl/5.14.2/Expect.pm line 1354 Expect::soft_close('Expect=GLOB(0x96965bc)') called at ./Fullhealthprep.pl line 37