use strict; use warnings; print "Wie ist Dein Name? "; my $name; $name = ; if ($name = "Adam") { print "Willkommen, Liebling!\n Was willst du? "; } else { print "Bitte geh."; }