perl -e "@file =  (split/\n/,`dir /od /b /S`)[0..5]; print  @file;"