use strict;
use warnings;

print "Wie ist Dein Name? "; 

my $name;
$name = <STDIN>; 
chomp $name;

if ($name eq "Adam")
{
    print "Willkommen, Liebling!\n Was willst du? ";  
}
    else
{
    print "Bitte geh.";     
}