A Cgi Set Cookies

#! c:/perl/bin/perl.exe

use CGI qw/:standard/;

$cookie = cookie(-name=>'menus',
    -value=>'on',
    -expires=>'+30d',
    -path=>'/');

print header(-cookie=>$cookie);
print start_html(-title=>'Set Cookie');
print h1('a example page to set the cookie');
print end_html;