my %cookie = fetch CGI::Cookie;
foreach $keys ( sort keys %cookie)
{
        print "$keys : $cookies{$_}";
}