# File:	sub4.pl	
# Title: 	Use subroutine	double(). BAD!!
#		Asks for a number returns double.Do this until you want to. 
# Author:	Mihaela Malita
#		Input a number? 5		
#		Double is 			#### return is NULL
#		Continue(y/n)?= n
#		Bye

$yesorno = 'y';
while($yesorno eq 'y') {
	print "Double is " ,double();   #invokes subroutine double() 
	print "\nContinue(y/n)?= ";
	$yesorno = <STDIN>;	chop($yesorno);	
}
print "Bye";
exit;

sub double {
	my($n);						# $n is declared LOCAL
	print "\nInput a number? ";
	$n = <STDIN>;				# careful using Local vs Global variables
	$n = $n * 2 ;
	return;						# N is computed but lost. 
}