#!/usr/bin/perl
use strict;
use warnings;
chomp(my $dir = <STDIN>);
my @files;
if (-d $dir){
	opendir (my $DIR, $dir);
	@files = grep { m/^(?!\.{1,2}\z)/ } readdir($DIR);
	closedir($DIR);
}
foreach my $file (@files) {
   print "$file\n";
}