use CGI qw(:standard);   
use CGI::Cookie;
$q=new CGI;
$cookie= $q->cookie(-name=>'DName', -value=>'userid', -expires=>'+72h', -path=>'/');

##</code><code>##

$fetch= $q->cookie(-name=>'DName');