Не можете загрузить сеанс в приборной панели после входа в систему, хотя его созданный и параметр передается?

Question

Я создал сеанс после проверки данных для входа, но сеанс не загружен в панель управления?не могу понять, почему?Код работал правильно раньше.Здесь не написано HTML-код в тегах.Следуя основным для проверки, создания и загрузки сессии.До этого сессия загружалась, но теперь она просто не загружает сессию, хотя до

login.pl

#!"C:\Strawberry\perl\bin\perl.exe"
use DBI;
use DBD::mysql;
use CGI qw/:standard/;
use CGI qw(:all);
use CGI::Session qw();
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session ( '-ip_match' );
use WWW::Mechanize;
require ('C:\xampp\htdocs\db\startraveltourhtml\startraveltourhtml\star-travel-1.2\db.pl');

$line="";
$flag=1;
$redirect="";
my $cgi = new CGI;
my $this_url = $cgi->url(); #Save this script's url
$email = $cgi->param('name');
$pass = $cgi->param('pass');
query_all($dbh);
sub query_all{
  ($dbh) = @_;

  my $sql = "SELECT email, password
             FROM registration
             where email = '$email' ";

  my $sth = $dbh->prepare($sql);
  $sth->execute();

  while(my $array_ref = $sth->fetchrow_arrayref()){
    $email1=$array_ref->[0];
    $pass1=$array_ref->[1];
  }
  $sth->finish();
  $dbh->commit;
}
if($email1 eq $email and $pass1 eq $pass and $email ne "")
{
  $session = CGI::Session->new();
  $session->param('email', $email);
  $q=$session->param('email');
  print "email = ".$q;
  print "<META HTTP-EQUIV=refresh CONTENT=\"1;URL=http://localhost/db/startraveltourhtml/startraveltourhtml/star-travel-1.2/dashboard.pl\">\n";
}
elsif($pass1 ne $pass)
{
  $line="Password or username is not Same";
  $flag=0;
}
else
{}

Dashboard.pl

#!"C:\Strawberry\perl\bin\perl.exe"
use DBI;
use DBD::mysql;
use CGI qw/:standard/;
use CGI qw(:all);
use CGI::Session qw();
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session ( '-ip_match' );
use WWW::Mechanize;
require ('C:\xampp\htdocs\db\startraveltourhtml\startraveltourhtml\star-travel-1.2\db.pl');

$session = CGI::Session->load();
$email=$session->param('email');
print "email = ".$email;
query_all($dbh);
sub query_all{
  ($dbh) = @_;

  my $sql = "SELECT username
             FROM registration
             where email = '$email' ";

  my $sth = $dbh->prepare($sql);
  $sth->execute();

  while(my $array_ref = $sth->fetchrow_arrayref()){
    $user=$array_ref->[0];
  }
  $sth->finish();
  $dbh->commit;
}

она работала нормально.