#! perl.exe
print "Please enter you name:\n";
chomp ($name =<STDIN>);

&answer();
exit;

sub answer()
{

print "Hello $name.\nWill you be joining me for a swim? [Y/N] \n";
chomp ($_=<STDIN>);
	
if (/^[yn]/i)
	{
		if (/^n/i) 
			{ 
				print "Begone, evil peon!\n"
			} 
		if (/^y/i)
			{
				print "YIPPEEE.!!!!\n";
			}
	} else {
		# Validate user input and return message if invalid
	print "\n\n=====================================\n";
		print "You Have Entered and Incorrect Option\n";
		print "Valid Options are [Y/N]\n";
		print "=====================================\n\n";
		&answer;
	}
}