# Removing directory references '.' and '..' from the listing
my $rmdir = shift (@file_list);
my $rmdir2 = shift (@file_list);

##</code><code>##

use File::Spec::Functions qw/no_upwards/;
...
my @file_list = no_upwards readdir($dirhandle);

##</code><code>##

use Path::Class qw/dir file/;
my @file_list = dir($dirname)->children;