Session database error

Hi,
Anyone know how I can retain session information when I repaint a form in
perl which has invalid textfields and then link to a database. The way my
code works is as follows:
Subroutines:
validate_form -> valids input from perl form, if incorrect repaints form
with error message.
display_form-> displays the current form
process_form-> everything okay and link to database.
The problem here is retaining the $user and $password to link to database
if error occurs. Any idea how to get around this.


#!E:\Perl\bin\perl.exe

use DBI;
use DBD::mysql;
use vars qw($ob,$user,$password);
use CGI qw(:cgi); # Include CGI functions
use CGI::Carp qw(fatalsToBrowser);
use Session;

$query = new CGI;
print $query->header;

$ob = Session->new();

$ob->open_session(0);

# extract name and password from session
$user = $ob->{SESSION}{user};
$password = $ob->{SESSION}{password};

print "The user is $user";
print "The password is $password";

sub display_form
{
my $error_message = shift;
my $your_task = shift;
my $your_weeks = shift;
my $your_days = shift;
my $approved = shift;
my $formMonth = shift;
my $formDay = shift;
my $formYear = shift;
my $successMeasuredBy = shift;

print "The error message is $error_message";

# Build "selected" HTML for the "Approved" drop-down list
my $my_approved_detail = "";
my @my_approved_opts = ("IVM-1136","WAG");

foreach my $my_approved_option ( @my_approved_opts )
{
$my_approved_detail .= " approved_option\"";
$my_approved_detail .= "selected" if ( $my_approved_option
eq $approved );
$my_approved_detail .= ">$my_approved_option";
}

print "";
print "";
print "";
print " \"middle\">Hi. Add a new task to your user profile :

";
print "