$found=0;
 open(db,"$MembersDB/MemberDB.db") || print "Can't open you database. Sorry!\n";
  @Info=<db>;
 close(db);
foreach $piece (@Info){
 ($user,$password,$Plan,$Type,$status) = split(/\|/,$piece);
 if($FORM{'username'} eq $user && $FORM{'pass'} eq $password){
 $found=1;
 $u=$user;
 $p=$password;
 $pl=$Plan;
 $T=$Type;
 $ss="$status";
}
if("$ss" eq "yes"){
 $sss="yessssss";
}else{
 $sss="nooooo";
}
}