#!/usr/bin/perl
use warnings;
use strict;

opendir my $dir, '.'  or  die "Cannot open '.': $!\n";
while ( my $file = readdir $dir ) {
    next if $file eq '.' or $file eq '..';
    print $file, "\n";
}
closedir $dir;