perl -e 'use File::Glob; while ($x=File::Glob::csh_glob "a.a") {print "$x\n"; sleep 1} print "$x\n"'
perl -e 'use File::Glob; while ($x=File::Glob::bsd_glob "a.a") {print "$x\n"; sleep 1} print "$x\n"'