Select Code to Download

#/usr/bin/perl

...
html content here
</html>
END

    use CGI qw/:standard/;
    use CGI::Cookie;
...
                                         size => 12 } 
                               );
    print header(-cookie=>[$cookie1,$cookie2]);

my $c = new CGI::Cookie(-name=>'Something');
$c->bake;