use DBI;
	my $dbh = DBI->connect($location, $user, $ba_pass, { RaiseError => 1, AutoCommit => 1}) or die "Couldn't connect to database: " . $DBI::errstr;


	eval {

	my $sth= $dbh->prepare("SELECT id FROM sessions");
	   my $id;
	   $sth->execute;
	   $sth->bind_columns(undef, \$id);


			my $f = 0;
			while ($sth->fetch) {
			$f++;
			if ($f == 1) {
  				  require CGI::Session; 
                    import CGI::Session;
			  	  $CGI::Session::IP_MATCH = 0;
			}			

  			  	  my $session = CGI::Session->load("driver:MySQL", $id, {Handle=>$dbh});
  				  if ($session->is_expired) {
					$session->delete();
					$session->close();
  				  }
					

			}

		$dbh->disconnect;
	};
	if ($@) {
		print $@;
		$dbh->disconnect;
 	}