$spec = 'c:/abc/*';
while (glob($spec)) {
   print;
}