cookies, where are my cookies

[Jerry Preston]

Hi!

I am I doing this right?

  use strict;
  use DBI;
  use CGI qw(:standard);
  use File::Basename;

  my $query=new CGI;
  print $query->header();
  print $query->start_html( -title=>'JERRY PRESTON COOKIES' );
  print $query->startform(  -method=>'POST', -name =>'JERRY PRESTON
COOKIES');

  my $expiration = "+1y";
  my $username = "jerryp";
  my $database = "testdb";
  my $password = "testword";

  my $usercookie =
cookie(-name=>"$database.username",-value=>"$username",-expires=>"$expiratio
n");
  my $passcookie =
cookie(-name=>"$database.password",-value=>"$password",-expires=>"$expiratio
n");
  print header(-cookie=>[$usercookie,$passcookie]);

  $username = cookie("$database.username");# or return(1);
  $password = cookie("$database.password");# or return(1);

  print "<br><br>$database * username *$username* password *$password*<BR>";

I get nothing when I print out:

  print "<br><br>$database * username *$username* password *$password*<BR>";

What am I doing wrong?

Is there a better way?

How can I check on my PC to see the cookies?

I am running this script on a SUN 2.8.

Thanks,

Jerry