perl -le'$d=shift||".";print for grep{int rand 2 and -f $_}<$d/*>'