perl -E"@f=grep{ -s $_  < 25e6} glob'*'; $p = system qq[junk10 $f[ rand @f ] $f[ rand @f ] >nul] for 1 .. 1e3"
successfully opened up . junk48.pl
successfully opened up . 800691.dat2.png
Done [800691.dat2.png junk48.pl]
successfully opened up . IC-junk1.pl
successfully opened up . 834245.13
successfully opened up . 797136-a.pl
successfully opened up . 2x1e5+2x20.dat
Done [797136-a.pl 2x1e5+2x20.dat]
successfully opened up . smallints.txt
successfully opened up . 8828831.trc.txt
Done [smallints.txt 8828831.trc.txt]
successfully opened up . Service.pl
successfully opened up . 759033.pl
Done [Service.pl 759033.pl]
Terminating on signal SIGINT(2)