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