print $query->header(-cookie=>$cookie); 

##</code><code>##

#!/usr/bin/perl -wT
use CGI;
use strict;

my $cgi = new CGI;              # Use CGI in an OO sense

my $header;
my $message = "";
if($cgi->param("name"))         # Set the cookie if we have a name
{
                # Only take nice characters from the name
        my ($name) = ( $cgi->param("name") =~ /([\w -]+)/ );
                # Create our cookie
        my $cookie = $cgi->cookie({-name=>"name",
                                   -value=>$name});

                # Add our cookie to the header
        $header = $cgi->header({-cookie=>$cookie});
                # Some message
        $message = "Thanks for visiting us $name.";
}
elsif(my $name = $cgi->cookie("name"))  # Read name from cookie (if it exists)
{
                # Greet name
        $message = "G'day $name.  It's nice to see you again";
}

$header ||= $cgi->header();     # (first time, or already has cookie)

        # Output html
print $header,                          "\n",
      $cgi->start_html(),               "\n",
      $message,                         "\n",
      $cgi->start_form(),               "\n",
      "You can add your name here:",    "\n",
      $cgi->textfield({-name=>"name",
                       -value=>"",
                       -override=>1}), "\n",
      $cgi->submit({-value=>"Greet me!"}), "\n",
      $cgi->end_form(),                 "\n",
      $cgi->br(),                       "\n",
      $cgi->start_form(),               "\n",
      $cgi->submit({-value=>"I'm back!"}), "\n",
      $cgi->end_form(),                 "\n",
      $cgi->end_html(),                 "\n";

##</code><code>##

#!/usr/bin/perl -wT
use CGI;
use CGI::Cookie;
use Data::Dumper;
use strict;

my $cgi = new CGI;
setcookie("fish", "fosh");
getcookie();

sub setcookie
{
        my ($DBuser, $DBpasswd) = @_;
        my $cookie1 = new CGI::Cookie(-name=>'DB',
                                      -value=>{ username => $DBuser,
                                                password => $DBpasswd,
                                              },
                                      -expires =>  '+1h');
        print $cgi->header(-cookie=>[$cookie1]);
}

sub getcookie
{
        my %cookies1 = fetch CGI::Cookie;
        return unless %cookies1;

        my $db = $cookies1{'DB'};

        return unless $db;

        my %dbvs = $db->value if $db;
        print Dumper(%dbvs);
        print Dumper(%cookies1);
}