For the 'Bareword "login"' error, you need to quote your keys if they contain any non-alphanumerics or clash with any other Perl functions so that they don't get misintepreted (such as in your code as login() . 'userid').

{
  'login.userid'   => 'test@test.com', # <---
  'login.password' => 'testabc',       # <---
  cmd              => 'LoginValidation',
  login            => 'Login',
}
[download]

    --k.