perl -le 'chdir pop||die;opendir D,".";print 0+grep-f,readdir D' some_dir_out_there