Select Code to Download

echo '01234567890123456789' | perl -pe '$s=time+join "",{}=~/(\d+)/g;s
+/(.)/srand $s;rand for 0..$1;chr(ord("a")+rand 26)/ge'

echo '01234567890123456789' | perl -MTest::More -pe '
my $inp = $_; my $L = length($inp);
my $N = 100; # number of trials
...
ok(scalar(keys %previous)==$N, ($N-scalar(keys %previous))." duplicate
+s among $N trials"); $nt++;
done_testing($nt);
'