#!/bin/env perl

use strict;
use warnings;

use Data::Dumper;

#use constant DOT => qr/^\.$/;
#use constant DOT_DOT => qr/^\.\.$/;

opendir(my $dh, '.');
my @lst = grep { !/^\.$/ && !/^\.\.$/ } readdir($dh);
#my @lst = grep { !DOT && !DOT_DOT } readdir($dh);
print Data::Dumper->Dump([\@lst], [qw/lst/]);