### CHECK BANNED ACCOUNT ###
open (ACC, "$path/data/ban_account.txt");
@ban_account = <ACC>;
close (ACC);
foreach $account_line(@ban_account) {
chomp($account_line);
if ($INPUT{'account'} =~ /$account_line/) { 
print <<EOF;
<BR>
<table cellpadding=5 border=1 cellspacing=0 bgcolor=$table_bg>
<TR><TD align=center><font face=$font_face size=$font_size color=$text_table>
YOUR ACCOUNT HAS BEEN BANNED. 
</TD></TR></TABLE>
<BR><BR>
EOF
&Footer;
exit;
   }
}