Select Code to Download

#!/usr/bin/perl -w
use CGI;
...
print "Cookie Set<br>";

print $q->end_html;

#!/usr/bin/perl -w
use CGI;
...
print "Cookie Value: ", (join " -- ", see_cookie($q->cookie('Test')) )
+, "<br>";

print $q->end_html;