#!/usr/bin/perl

use warnings;
use strict;

my $dir = ".";

    opendir(DIR, $dir) || die "can't opendir $dir: $!";
    my @dots = grep { /^\./ } readdir(DIR);
    closedir DIR;


print join("\n", @dots);