use strict;
use warnings;

my $dir = shift || '.';

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

print $_,$/ for @rand;
[download]

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

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)