use strict;
my $dirpath = '/usr/C';
opendir(my $dir, $dirpath) or die "Error when using opendir $!";
my @namearr = grep {-f "$dirpath/$_"} readdir($dir); # get only files and skip directories