chdir $directory or die "Can't cd to $directory: $!";
opendir my $dh, '.' or die "Can't open $directory: $!";

while (my $file = readdir $dh) {
	print "$file\n";
}

closedir $dh;