geuma@geuma:~$ perl -e 'for (5..1) { print "$_\n" };'