opendir(PWD,"$next") && my @files = readdir PWD
    or die "Open \"$_\" failed: $!";


##</code><code>##

opendir(PWD,$name) or die "$name: $!";
my @files = readdir(PWD) or die "$name: $!";