perl -e 'for (reverse 1..5) { print "$_\n" };'