Re^3: Don't get the output as expect.

[frozenwithjoy]

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;.