Select Code to Download

#!/usr/bin/perl -
use File'Util shuffle;print shuffle<>

#!/usr/bin/perl -
use List'Util shuffle;print+(shuffle<>)[0,1]