Select Code to Download

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

my $mymoney=10; $beercost=1;
while($mymoney>0){
...
    print "2 beer || ! 2 beer this is a $question\n";
    $mymoney-=$beercost*$question;    
}