Select Code to Download

$  perl -E 'my $count = 5; say $count while decr($count); sub decr {--
+$_[0];}'
4
...
2
1

$  perl -E 'my $count = 5; say $count while $count = decr($count); sub
+ decr {return -1 + shift;}'
4
...
2
1