#!/usr/sbin/perl
$secretword = "jethrotull";
print "What is your name?\n";
$name = <STDIN>;
chop($name);
if ($name eq "Deepak"){ 
print "Hello Deepak been expecting you\n";
} 
else {

print "Hello $name, we need a password\n";  

print "what is the password?\n";
$guess = <STDIN>;
chop($guess);

while ($guess ne $secretword) {
print "Wrong try again\n";
$guess = <STDIN>;
chop ($guess);
}
}


