perl -le'$d=pop;opendir(D,$d)||die$!.$/;print~~grep{-f"$d/$_"}readdir D' dir

##</code><code>##

perl -le'opendir D,".";print~~grep{-f}readdir D'