my $cookie_pass = $IN->cookie (-name => 'pass',
-value => $pass
);

print $IN->header( -cookie => $cookie_pass );

my $cookie_user = $IN->cookie (-name => 'user',
-value => $id
);

print $IN->header( -cookie => $cookie_user );