Try it

$drinkie = <STDIN>;
chomp($drinkie);
if ( $drinkie eq 'gin' ) {
    print "I need tonic!\n";
}