perl -e 'for (-5..-1) { print -"$_\n" };'
+5
+4
+3
+2
+1