sub del_session {

	my $user = $_;
	my $dbh = DB_Methods::db_connect();
	my $sth = $dbh->prepare("DELETE FROM session WHERE 	user_name LIKE ?");
	$sth->bind_param(1, $user);
	$sth->{ChopBlanks} = 1;
	unless ($sth->execute()) {die $dbh->errstr();}
	$sth->finish();
	$dbh->disconnect();
}