Hanyuufag emulation

#!/usr/bin/perl

print "Ханюфаг, как чувствуешь?\n";
$drink= <STDIN>;
chop $drink;
if($drink=='Пьяный')
 {
    print "Давай еще накатим!\n";
 }
else
 {
    print "Это надо отметить! Накатим же!\n";
 }