Select Code to Download

$ perl -w -e 'use List::Util qw(min);
@a = (-10...5); 
print "@a\n",(min @a),"\n";'
-10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5
0

$ perl -w -e 'use List::Util qw(min);
@a = (-10...-5);
print "@a\n",min(@a);'
-10 -9 -8 -7 -6 -5
-10