#!/usr/bin/perl -w

$secretword="llama";

print "Welcome. What is your name? ";
$name= <STDIN>;
chomp ($name);

if ($name eq "Neil") {
print "Yoooo wazzzzup, Neil! Right this way, man...";
} else {

print "Hey, hold up. I'm going to need the secret password: ";
$guess= <STDIN>;
chomp ($guess);

while ($guess ne $secretword) {
Print "Wrong! Try again: ";
$guess=<STDIN>;
chomp ($guess);
}
}