$usercookie = $cgi->cookie(-name   =>      'linsv01dbu',
                            -value  =>      $cryptuser,
                            -expires=>      '+1d',
                                          -path   =>      '/');
$passcookie = $cgi->cookie(-name   =>      'linsv01dbp',
                            -value  =>      $cryptpass,
                            -expires=>      '+1d',
                            -path   =>      '/');
if (print $cgi->header(-cookie  => [$usercookie,$passcookie])){
                        &todo;
                }else{ &error }