opendir my $dir, $home or die $!;
my @files = grep { $_ !~ /\.\.?$/ } readdir ($dir);
closedir $dir;
print qq($_\n) for @files;