use strict;
use warnings;

my $dir = shift || '.';

my @rand;
while (<$dir/*>) {
   push @rand,$_ if int rand 2 and -f $_;
}

print $_,$/ for @rand;

##</code><code>##

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