I try to find relationship between beer and Shakespeare's poem.

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";
[download]

in this case the $beer is continual, but i fogot about another variable: my purse. so now i have more realistic situation :

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;    
}
[download]

P.S. Sorry for my bad english