CGI:Cookies的用法

刚刚不知道为什么，文章没有了，只好重新发布：

#!/usr/bin/perl

use CGI qw/:standard/;
    use CGI::Cookie;

    # Create new cookies and send them

    my $cookie1 = new CGI::Cookie(-name=>'ID',-value=>123456);
    print header(-cookie=>$cookie1,-charset=>"gb2312");
    print start_html();
    my %cookies = fetch CGI::Cookie;
    my $id = $cookies{'ID'}->value;
    print h1($id);
    print end_html();