Select Code to Download

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

opendir(ims, "/home/tanglam/www/$Account::cata_acc/_data/messages");
@imss = grep !/\.\.?/, readdir MESSAGE;
unlink(@imss);
closedir(ims);