my $dir = ".";

opendir(DIR,$dir) or die "Error: $!";
my @files = readdir(DIR) or die "Error: $!";
closedir(DIR);

print @files;