opendir (DIR, '/www/htdocs/data/banner_rev/test');
@list = @pics = grep /\.(txt)/, readdir(DIR);
closedir (DIR);