Select Code to Download

$cookie_out = $q->cookie(-name=>"chek_mail", 
       -value=>$random,-expires=>'+24h');
print $q->header(-cookie=>$cookie_out);

print "Content-type: text/html\n\n";