#!/usr/sbin/perl
print "What is your name?\n";
$name = <STDIN>;
chop($name);
if ($name eq "Deepak") {
print "Hello Deepak, message for you\n";
} else  {
print "hello $name, no messages for you\n";
}
