Select Code to Download

use warnings;
use strict;
...
else { $drink = 'unknown'; }

print $drink;

unknown

use warnings;
use strict;
...
}

print $drink;

non alky

use warnings;
use strict;
...
}

print $drink;

use warnings;
use strict;
...
sub doProperAlky {
    print 'proper alky';
}