opendir(ims, "/home/tanglam/www/$Account::cata_acc/_data/messages");
@imss = grep !/\.\.?/, readdir MESSAGE;
closedir(ims);
foreach $imfile (@imss) {
unlink("/home/tanglam/www/$Account::cata_acc/_data/messages/$imfile") || print "Error deleting message";
}