#!/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);
}