http://www.perlmonks.org?node_id=1037302


in reply to Re^2: Don't get the output as expect.
in thread Don't get the output as expect.

Glad to hear. Be sure to declare your variables with my so that everything will run when you have use strict; in effect.

Also, you may want to change this:

if ($answer eq "y")

to something like this:

if ( $answer =~ /^y/i )

That way, it will match Y y Ya yes yup Yar, etc. and let you remove two lines of code since you will no longer need to chomp $answer;.