print "How much beer do you whant? ";
my $beer=<STDIN>;chomp($beer);
$question = (2 * $beer) || (not 2 * $beer);
print "2 beer || ! 2 beer this is a $question\n";

##</code><code>##

my $mymoney=10; $beercost=1;
while($mymoney>0){
	print "How much beer do you whant? ";
	my $beer=<STDIN>;chomp($beer);
	$question = (2 * $beer) || (not 2 * $beer);
	print "2 beer || ! 2 beer this is a $question\n";
	$mymoney-=$beercost*$question;	
}