Select Code to Download

print $query->header(-cookie=>$cookie);

#!/usr/bin/perl -wT
use CGI;
...
      $cgi->submit({-value=>"I'm back!"}), "\n",
      $cgi->end_form(),                 "\n",
      $cgi->end_html(),                 "\n";

#!/usr/bin/perl -wT
use CGI;
...
        print Dumper(%dbvs);
        print Dumper(%cookies1);
}