use strict;
use warnings;

opendir (DIR, '.');
my @dir = readdir(DIR);
$, = "\n";
print @dir;