opendir(DIR, "$basedir/$mesgdir");			
    @allfiles = readdir(DIR);			
    @onlyfiles = grep {!/^\./} @allfiles;		

    foreach $file (@onlyfiles)				
    {
    unlink ($file);
    }
    closedir(DIR);