perl -le 'for (1..5) { print };' [download]
Update: And golfing down a little more:
perl -le 'print for(1..5)' [download]
In reply to Re^2: max .. min does not work by toolic in thread max .. min does not work by geuma