sub form_login {
   my ( $self ) = @_;
   my $nextrm = 'authenticate';

   # Get CGI query object
   my $cgi = $self->query();
   my $email = $cgi->param('email');
   $self->tmpl_path('./');
   my $output = $cgi->header();
   $output .= $cgi->start_html( -title => 'Employee Login Form' );
   my $tmpl_obj = $self->load_tmpl( 'Login.tmpl' );
#   $output .= Dumper ( $tmpl_obj );
#   print $output;
#  next line generates the error
   $tmpl_obj->param(
      LOGIN_URL => '/cgi-bin/Auth/Auth.cgi',
      EMAIL => $cgi->param('email'),
      PASSWD => '',
      RM => $nextrm,
   );
   $output .= $tmpl_obj->output;
   $output .= $self->dump_html();
   $output .= $cgi->end_html();
   return $output;
}