sub _validate{
  my ($login) = @_;

  if(($login->{uname} eq 'rajiv') && ($login->{pwd} eq 'rajiv')) {
    print "Login success";
  }
  else {
    print "Login failed";
  }
}