if ( my $lparnmame = $cgi->param('lparname'))
  {
    if ( $lparname eq "")
  {
    $errors{'lparname'}='Lparname is required';
  }
  }