Warum kann ich meinen String nicht mit der Standardeingabe in Perl abgleichen?

Warum funktioniert mein Skript nicht richtig?

Ich folge einem YouTube-Video und arbeite für den Kerl.

Ich starte Perl unter Windows mit ActiveState ActivePerl 5.12.2.1202

Hier ist mein winziger winziger Codeblock.

print "What is your name?\n";
$name = <STDIN>;
if ($name eq "Jon") {
print "We have met before!\n";
} else {
print "We have not met before.\n";
}

Der Code springt automatisch zur else-Anweisung und überprüft nicht einmal die if-Anweisung.