for (glob('*')) {
   print "$_\n";
}