my $random = int (rand(100));
$count = 0;
while ($random != $choice)
{
	print "enter your choice = ";
	$choice = <STDIN>;
	$count++;
	print "you entered= $choice";
	if($choice == $random)
	{
		print "Bravo-------------------you win";
		print "\nTotal number of counts= $count\n";
		exit;
	}
	elsif ($choice gt $random)
	{
		print "\nyour choice is TOO High\n";
	}
	else
	{
		print "\nyour choice is too low\n";
	}
	print "\nto quit press q OR press enter to continue  ";
	$value = <STDIN>;
	if($value eq "q\n")
	{	
		print "Sorry!! you lost	:-(\n";
		print "\nTotal number of counts= $count\n";	
		exit;
	}
	
}