print "What is your name? ";
    $name = <STDIN>;
    print "Your name is $name\n";