Perl list files and folders in a directory

opendir(DIR, ".") or die "Couldn't open current directory: $!";
my @files = readdir(DIR);
closedir(DIR);
foreach my $file (@files) {
    print "$file\n";
}