Select Code to Download

perl -le '@list=1..10;for(1..3){push @list,shift @list for 1..rand 10;
+ print pop @list}