print "Wie ist Dein Name? "; 
$name = <STDIN>; 

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