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