perl -le 'print for(1..5)'