my $cookie = $q->cookie( -name    => 'sessionID',
                         -value   => \@sessionID,
                         -expires => '+1h',
                         -path    => '/admin/',
                         -domain  => '.mydomain.com',
                         -secure  => 0                   );

##</code><code>##

Name: sessionID
Information: username&password
Domain: .mydomain.com
Path: /admin/
Server Secure: no

##</code><code>##

if ($q->cookie("sessionID")) {
    ($submitted_user, $submitted_pass) = @{ $q->cookie("sessionID") };
} else {
    error("Invalid user/pass. Please login again.");
}