opendir(DIR,$dirpath);
my @A = readdir DIR;
closedir DIR;
...
my $entry = shift $A;
...

##</code><code>##

if (-f "$dirpath/$entry")