while (1) {
$totallistoffiles = glob all_dir_list/*;
fork
if child { 
proccess file list
exit
}
else #parrent {
sleep 2
}
}