use warnings;
use strict;

opendir my $d, "."; 
print "$_ \n" for readdir $d;