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