use strict;
use warnings;

my @files = `dir /b`;
foreach(@files){
    chomp($_);
    print $_."\n";
}