#!/usr/bin/perl -wl

use CGI qw(cookie);

print "+1d: ",cookie(-name=>'test',-value=>'a',-expires=>'+1d');
print "+1D: ",cookie(-name=>'test',-value=>'a',-expires=>'+1D');
__DATA__
outputs:
+1d: test=a; path=/; expires=Tue, 05-Aug-2003 06:15:38 GMT
+1D: test=a; path=/; expires=Mon, 04-Aug-2003 06:15:39 GMT